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FACILITY: EXECUTIVE, MEMORY MANAGEMENT SERVICES 


ABSTRACT: SYSCREPAG IMPLEMENTS THE SERVICES WHICH CREATE NEW 
DEMAND ZERO PAGES IN THE VIRTUAL ADDRESS SPACE OF THE CALLER. 


ENVIRONMENT: THESE SERVICES RUN IN KERNEL MODE WITH THE MEMORY 
MANAGEMENT DATA BASE LOCKED WHEN NECESSARY. 
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-SBTTL HISTORY ; DETAILED 

9 : AUTHOR: PETER H. LIPMAN . CREATION DATE: 9-SEP-76 
: : MODIFIED BY: 
4; v03-019 wMC0014 Wayne Cardoza 28-Mar-1984 
S$ 3 Only window pages Love MAXPFN cause process to be locked 
§ : on primary. 

0 8 : v03-018 wMc0012 Wayne Cardoza 25-Feb-1983 
3 3 Handle deletion of ‘resident global pages. 
1; v03-017 wMcOo12 Wayne Cardoza 16- -Jan-1983 
¢ : CRECOM_DONE path must check for SS$_ABORT 
4: v03-016 wMC0011 Wayne Cardoza 28-Sep-1983 
5 3 Move code to FAST_CREATE so CRMPSC can use it. 
$ F v03-015 wMc0010 Wayne Cardoza 26-Sep-1983 
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Make sure 1 page EXPREG of P1 space returns addresses in 
correct order. 


v03-014 wMcQ009 Wayne Cardoza 28-Aug-1983 
Don't wait for 1/0 completion at IPL 2. 
Major changes to creation of demand zero pages to improve 
performance. 


v03-013 wMc0008 Wayne Cardoza 22-Aug-1983 
MOVPTLOCK = don't remove pages from permanent working set. 


v03-012 “ype a Wayne Cordose 03-Aug-1983 
Misc performance improvem 


za- 


New entry point for EXPREG ith arbitrary protection. 


v03-011 wWMC0006 Wayne Cardoza 88-Jun-1983 
Properly delete demand-zero global page tile oo 


v03-010 TCM0001 Trudy C. Matthews —_ 
Change references to working set fields e HD a shal 
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they are used as unsigned words. 


v03-009 wMc0005 Wayne Cardoza 18-Mar-1983 
Fix status returned by delete. 


; V03-008 wMC0004 Way cerdege 02-Mar-1983 

; MMGSCRECOMx wiry rat nts mers 

3 MAGSRETADRINI. GSINADRI t. mM SRETRANGE will always return 
; status and with an RSB. 


V03-007 wac0003 e Cardoz 02-F eb-1983 
Make MMGSCREDEL ond MMMGSRE TRANGE global entry points. 


v03-006 wacQ002 Wayne Cardoza 0-Jan-1983 
Don't write back a process section page if the checkpoint 
bit is turned on in the backing store word. 


v03-005 pate @ Kathleen D. Morse 10-Nov-1982 
Invalidate the translation buffer upon deletion of 
a shared Rg og giobe section page. Do not clear 
window b TE until sure that deletion can proceed 
in case dito wait causes re-execution of SDELPA 
v03-004 mi J08 Martin L. Jack 13-Nov-1982 
x A BSBW. 


v03-003 wmMc0001 e Cardoza 29-Sep-1982 
Give up if ADJWSt “Kooen' t change extradyn,. 


V03-002 KDM46395 Kathleen D. Morse eSo June 1962 
Place the wet Es for page table ge es that contain 
PFNMAP and MA/80 a n 


glo o the locked vpertion 
of the working set. 
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FUNCTIONAL DESCRIPTION: 


ICE EXPANDS THE PROGRAM REGION (REGION = 0) 
= 1) OF THE PROCESS SPACE BY THE 

THE PAGCNT PARAMETER. THE NEW PAGES 

Y THE MODE OF THE CALLER WITH 

CALLING MODE AND ALL MORE PRIVILEGED MODES. 


A EM ZER 
READ/WRITE PROTE 
CALLING SEQUENCE: 


CALLG ARGLIST,@#SYSSEXPREG 
CALLG ARGLIST,MMGSEXPREG Y 


POINT 
ON IN ACMODE+1 


oe ED 


INPUT PARAMETERS: 


PAGCNT(AP) = NUMBER OF PAGES TO ADD TO THE REGION 
RETADR(AP) = ADDRESS OF A_ 2 LONGWORD ARRAY INTO WHICH IS RETURNED 
THE ates, AND_ENDING VIRTUAL ADDRESSES (INCLUSIVE) 


OF THE PAGES JUST CREA 

ACMODE(AP) = THE ACCESS MODE (MAXIMIZED WITH THE CALLERS MODE 
AS_THE OWNER OF THE NEW PAGE(S) 

ACMODE+1(AP) = THE PROTECTION TO USE FOR THE NEW PAGE WHEN 

ALLED AT THE PRIVILEGED MMGSEXPREG ENTRY POINT 
REGION(AP) = THE INDICATOR FOR WHICH REGION TO EXPAND 

Q = PROGRAM REGION 

1 = CONTROL REGION 


IMPLICIT INPUTS: 


CURRENT PCB LOCATED V 
PROCESS HEADER AS SPE 


OUTPUT PARAMETERS: 

RO = SYSTEM STATUS CODE 
IMPLICIT OUTPUTS: 

NONE 
COMPLETION CODES: 


SS$$_NORMAL 3SU 
SS$~ACCVIO iRE 
it 


NAME WINS OONOAU EWN OOD NAME WN OOONOUMESWw OO 


—> 


SCHSG 
IED 1 


I _CURPCB 
C D PCBSL_PHD OF THE PCB 


ODOOOCCOOOSOOSOOOOOOOOOOOOCOOCOOOSOOOOOOOSOSSS a; 
COOCCCOCOOCCOCOOSoOOOCSCOOOOSOOOOOOOOOOOOOSOOOOOoOOo 
OOOCCOCOCOOCOSOOSOSOSOSOSOSOSOSOOSOOCOOSOOSOSOSOSOOCOSOOSOOOOSOOOSOOOOOSoOO 

MOO OO OOOO O00 0900 09 09 0909 09 09 09 SINISE NNSA AAA AAAAAUIMINIIIUIN oa 


OWONAULS WN OO 


ESSFUL COMPLETION 

RN ADDRESS RANGE INACCESSIBLE 
UAL ADDRESS SPACE FULL 

GAL PAGE COUNT PARAMETER 


$$$ VASFULL 

SS$~ILLPAGCNT ; 
SIDE EFFECTS: 

NONE 


m=Co 


SOOOOCOOOOOOOoOSoOSooOoSoS 
CoOoCoooo 
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SOoooooooosoSo 
Sooooooooooo 


PoPononononopnopnonoeny»d 
SOooooooooo 
DONOULS WO 


K 10 
SYSCREDEL - SYSTEM SERVICE CREATE & DELETE PAGE Ig-SEB-1984 01:49:03 AX/VMS Macro V04-00 Page 5 
v04-000 EXPREG = EXPAND PROGRAM/CONTROL REGION ~SEP=1984 03:49: SYS.SRCISYSCREDEL.MAR; 1 (4) 
p 12 : PRRAAAABAARABAAAAASLALALALALAELEALASALELEL ESE SEE EE EERE SER EERE RRR EERE RE RES SS 
\3 : eeeekeereererere THE FOLLOWING CODE MAY BE PAGED *eeeneeeeeeereree 
0000 1 .PSECT YSEXEPAGED 
8 18 : PARAAAAAAAAAAAAAAALALALELALALALERE RARER ERR ERASE RARER ARES ESLER ERR ARSE SES SS i 
0 e 
§ 1 .ENABL LSB 
§ i MMGSEXPREG: : 
O1FC 90 4 <WORD “M<R2,R3,R4,R5,R6,R7,RB> 
57 ODAC 9A 5 MOVZBL ACMODE+1(APS ,R? ;PICK UP DESIRED PAGE PROTECTION IF SPECIFIE 
OA 11 90 é BRB 8$ 
50 OOFC 8F 3¢ 000 8 S$: MOVZWL #SS$_ILLPAGCNT,RO ;ILLEGAL PAGE COUNT PARAM 
04 ange ; 6$: RET 
O1FC OOF 31 .ENTRY EXESEXPREG, “M<R2,R3,R4,R5,R6,R7,RB> 
57 4 $01 3 CLRL = R? :NO PAGE PROTECTION SPECIFIED 
SE ic c2 001 4 8$: SUBL § #-MMGS$C_LENGTH, SP SRESERVE SCRATCH AREA 
g2ge 01 5 BSBW MMGSRETADRINI :INIT RETURN RANGE AND SCRATCH AREA 
F 3 9 0018 6 BLBC = RO, 6$ 
01 E 018 ? BSBW § MMGSCREPAGINI sINIT FOR CREATING DZRO PAGES 
5 001 33 TSTL = R? [PAGE PROTECTION SPECIFIED? 
03 00 39 BEQL 4 6-«&9$ “BRANCH IF NOT 
04 1B 57 00 40 INSV 7, #PTESV_PROT,APTESS_PROT,R8 ;SET DESIRED PAGE PROTECTION 
56 04 AC 00 41 9$: MOVL. PAGCNT(APT,R6 sPAGES TO BE ALLOCAT 
51 56 01 028 4g SUBL3 # :R1=# PAGES TO BE ALLOCATED - 1 
FFEQOO00 8F OOF 26 BITL  #*C<VASM_VPG & - ‘PAGE COUNT TOO LARGE? 
036 244 AC<VASM_P1 ! VASM_SYSTEM>>@-9,R1; (HIGH 11 BITS NOT CLEAR?) 
DO 0 6 45 BN $ [BRANCH FOR ERROR IF NOT CLEAR 
51 51 «09 038 46 ASHL #9,R1,R1 TEXPRESS AS BYTES 
6 C 48 : eeeee LOCK THE PROCESS HEADER HERE 
C 30 ; SETIPL #IPL$_ASTDEL ZNO AST'S WHILE MODIFYING PHD 
54 00000000’ EF D 3F 3 MOVL SCH cf CURPCB,R4 :R4=PCB 
55 00000000'S9F oD 46 : MOVL a#CTLSGL_PHD,R [R5=PHD ADR 
OA 1 AC E 40 25 BLBS REGION(AB) 16$ [BRANCH IF P1 SPACE 
52 28 a5 D 31 34 MOVL. PHD L -FREPOVACRS) .R2 :STARTVA=1ST FREE PO SPACE PAGE 
5352 31 c] 38 38 ADDL R1,R2-R3 [R3=ENDVA (INCLUSIVE) 
52 30 Re 09 bag 3§ 10$: MOVL PHDSL _FREPIVACRS) .R2 ;STARVA=1ST FREE P1 SPACE PAGE 
oe a ae 3 38 SUBL3 R1,R27R3 SR3=ENDVA (INCLUSIVE) 
51 0200 ¢1 p 3 60 15$:  MOVAL “*X200(R1),R1 :GET FULL SIZE OF NEW REGION 
bogs 6 6 61 BSBW  ©MMGSTRY_ALL ?SEE IF FULL EXPANSION IS POSSIBLE 
0 E 68 6¢ BLBC ~—_- RO, 1008 :GO TRY IT THE HARD WAY 
00 0 é 64 BSBW  MMGSFAST_CREATE SUSE THE FAST CREATE PATH 
$s i " 65 BRB NOSs 
? 85 + GET AS FAR AS WE CAN = ONE PAGE AT A TIME 


A 
00000000 ' GF 


00000000 ' GF 
00000000 ' GF 


00000000 ' GF 
00000000 ' GF 


50 


o ® 
*- > 
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Se Ge Se Ge Ge Ge Ge Ge Ge 


2 S OOOO OO 000 090000 09 09 09 CD CD CD CD CD CD OD 0008 NII INI 
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VMOU PB VI 
OoOnNOOoOoOCOooOoOe NO 
o—90 -90 9 -90O0-c0C9 
VWF UO On OOF Www0o—o 
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TRY EXPANDING REGION TO FIT LAST PAGE TO BE CREATED 
THEN CHECK AND ADJUST PAGEFILE QUOTA 


ADDITIONAL SPACE REQUIRED 
AV HE REGION 


R1 => 
> 


STRY_ALL:: 
BSBW 
BLBC 


MOVZWL 
RSB 


CLRL 
RSB 
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REGION S-SEP=19RG Obicos40 Let eMeS HBC CO VOR OD ve 8, 
W°MMGSCREPAG,R6 sMMGSCREDEL NEEDS THIS 
aie EL :COMMON CREATE/DELETE LOOP 

NAGSRETRANGE [RETURN RANGE OPERATED ON 
nD. (SP) ;THIS STATUS WILL SUPERCEDE CREDEL 
MMGSL_CALLEDIPL (FP) 
LSB 


A INT 


> PCB 
PAGES TO BE CREATED (MAY BE LESS THAN REQUIRED REGION EXPANSION) 


EXPANDCHK TRY EXPANDING REGION 
RO,70$ NO LUCK 


#MMGSV_CHGPAGF IL ;BRANCH IF NOT CHARGING FOR PAGE FILE 
MMGSL “MAXACMODE (FP), 60$ 


PCBSL~JIB(R4) ,RO GET 18 ADDRESS 
co “PGFLCNTERO) . R6 =: CHECK 
$ ‘BR ANCH TF OVER QUOTA 
JIBSL_PGFLCNT( 


RO) 
Hittte PGFLCNT(RO) ,JIBSL_PGFLQUOTA(RO),RO ;PAGE FILE PAGES IN USE 
20 G* riesée” VIRTPEAK ~:MAINTAIN MAX PAGE FILE USED 


RO,G*CTLSGL_VIRTPEAK sSET NEW PEAK VALUE 
RO, G*CTLSGL~IPAGEFL SET NEW PEAK VALUE 


RO, G*CTLSGL_IPAGEFL ;MAINTAIN MAX PAGE FILE USED (IMAGE) 
RO,G*CTLSGL_IPAGEFL ;SET NEW PEAK VALUE 
#SS$_NORMAL ,RO 


RO 3CAN'T MAKE IT 


FAST CREATE PATH 
= STARTVA 
> rt. 


ng > PAGE NCOUNT 
R& -> NEW PTE 


AMGSFAST_CREATE: : 


ae 
on 
wm 
wv 
zo 
ow 
qn 
z»> 
>-4 
zr 


a 


vw 
om 
Ww 
oOo 
Sad 


= 
o 


COOODO TN NHN HNN HMMM MMmmMmmmlml co 
ed 
oe 


DOM O NNIMO SNL LS MS OW FO BW MIWIM BD OFS DOWN MOOOWOUIWOYO 
ou 
Co Oo 
wn 


OMN> OF UOOCOCSOCOWOUCOWN™ 
~ 
o 
Ad 


—o@ 
oo 
oO 
ww 


SCODWOCWOO—-0O— WH —§- MII = DUIUNIOOO 
oOo 
So 
wr 


—FPMAMEwW—M P—O—CO—~O—-O7"NO—-WPOO 
SPP APPA AAA OD AAA AAAS Ee Be Be Be Be Be AAA AAA AAAI IRIN 


DOD NAWNE WO OD NA NE WIN  O ODNAU EWN 9 ODNOU EWN OOONOM 
ss . 


WNWIAIWW AA NAAM AWA AAA. AAAI NA AAA ANNAN ANNAN AA ANNAN 


Wed 


4 10 
PAGE 16-SEP-1984 01:49: AX/VMS Macro V04-00 Page 7 SYS 
REGION eto 1 84:43:08 SYS. SRCISYSCREDEL.MAR; 1 - dy v04 
R +3(SP) ;SAVE THE VA'S 
R gr 1S -R2 THE LOWEST VA 
R3,R2 ‘NOW IT 1S 
#VASV_P1,R2,20$ ;BRANCH IF PO SPACE 
PHDSL_PIBR(RS) .R3 :ADR OF POINTER TO P1PT 
PHDSL_POBR(RS) .R3 ;ADR OF POINTER TO POPT 
#VASV_VPN,#VASS_VPN,R2,R1 ;VIRTUAL PAGE NUMBER 
! #27R6,RO sPAGES TO LEAVE A MULTIPLE OF 4 
RB8,a(R3)CR1) :STORE NEW PTE 
1 *NEXT PAGE 
RO, 40$ 
#-2,R6,RO 
3; DONE 
R8,a(R3)CR1) SSTORE NEW PTE 
[NEXT PAGE 
R8,a(R3)CR1) [STORE NEW PTE 
‘NEXT PAGE 
R8,a(R3)CR1) [STORE NEW PTE 
[NEXT PAGE 
R8,a(R3)CR1) :STORE NEW PTE 
R [NEXT PAGE 
R6,60$ 
(SP)+,R1 :GET BACK THE VA'S 
R1,R2 
90$ :GOING BACKWARDS 
80$ [GOING FORWARDS 
#VASV_P1,_R2,90$ TEQUAL = P1 IS BACKWARDS 
#*xXiFF RI SSTARTVA IS START OF PAGE 
#eXIFF Re SENDVA IS END OF PAGE 
#°X1EE RE ;STARTVA IS START OF PAGE 
#°X1FF-R SENDVA IS END OF PA 
#SS$_NORMAL ,RO :INDICATE SUCCESSFUL COMPLETION 
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; MMGSL_MAXACMODE(FP) CONTAINS THE MAXIMIZED ACCESS MODE 
: OUTPUTS: 

: R = ADDRESS OF CREPAG SUBROUTINE TO BE CALLED 
3 R CIFIE 


C 
= DEMAND ZERO PAGE TABLE ENTRY FOR SPE D ACCESS MODE 
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W°MMGSCREPAG,R6 SADR OF INITITAL DELETE SCANNER FOR CREATE 

MOVZBL RNGst MAXACMODE(FP),R8 :ACCESS MODE OF WRITER/O 

BBSS | #MMGS$U_CHGPA PAGE IL MMGSL_MAXACMODE(FP),10$ ; CHARGE PAGE FILE QUOTA 
10$:  MOVZBL B*MMGSAB_D §.R8 ~ :PROTECTION AND OWNER FIELDS 

ASHL #PTESV “BON. RB. RB :SHIFT INTO POSITION 
MMGSAB_DZRO: 

-BYTE <PTESC_KW ! PTESC_KOWN>@-PTESV_OWN ;KERNEL 

"BYTE <PTESC7EW | PTESCTEOWN>@-PTESV-OWN ;EXEC 

“BYTE  <PTESC7SW | PTESC”SOWN>@-PTESV-OWN ; SUPER 

“BYTE <PTESC"UW ! PTESC"UOWN>@-PTESV-OWN :USER 
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SEP=1 YS.SRCISYSCR ° ¢, 


DEL.MAR; 1 ( 


RRARREREERE RATER AE RARER AA AA AAA AA AAR AAAAAAAAEAAAEAAAAETHAAERAE EAA 
eeeeeeereeereeee THE FOLLOWING CODE MAY BE PAGED eetereraaereeeeee 
-PSECT YSEXEPAGED 


PARBRASAARARASALARRARLALALALASARS ERASERS A SALAS AAA RASA RAS E RASA ALARA AAS SO 


vIC 
ATE 
463 
464 
4 g 
189 
468 
23 
470 
1H 
crs .ENABL LSB 
rhe: 5$: MOVZWL #SS$_NOPRIV,RO :NO PRIVILEGE 
47 CLRL MMGSC_SAVRETADR(FP) ‘NULL RETURN ADR FOR NULL RANGE 
14 6$: RET 
138 MMGSCRETVA: : 
480 : AM<R2,R3,R4,R5,R6,R7,RB> 
481 MOVZBL ACMODE+1 (APS ,R? sPICK UP DESIRED PAGE PROTECTION IF SPECIFIE 
4 : BRB 10$ 
a8 LENTRY EXESCRETVA, “M<R2,R3,R4,R5,R6,R7,RB> 
486 CLRL = aR?’ :NO PAGE PROTECTION SPECIFIED 
487 10$:  SUBL § #-MMG$C_LENGTH,SP TRESERVE SCRATCH AREA 
488 BSBW MMGSINADRINI :GET INPUT RANGE TO R4, RS 
489 TINIT RETURN RANGE AND SCRATCH AREA 
490 BLBC —- RO, 68 
491 BSBW MMGSCREPAGINI sINIT FOR CREATING DZRO PAGES 
49¢ TSTL [PAGE PROTECTION SPECIFIED? 
49 BEQL 20% “BRANCH IF NOT 
49% INSV  R7,#PTESV_PROT,APTESS_PROT,R8 ;SET DESIRED PAGE PROTECTION 
499 20$:  MOVQ  R4.R2 :Rd = START OF RANGE, R3 = END 
499 : OPERATE ON PAGES STARTING WITH THE ADDRESS IN R2 ENDING WITH THE 
498 : ADDRESS IN R3 INCLUSIVE. 
35 
i ; eeeee LOCK THE PROCESS HEADER HERE 
§ ; SETIPL #IPL$_ASTDEL :NO AST'S WHILE MODIFYING PHD 
8 : BBS #31,R2,5$ :CHECK FOR SYSTEM SPACE ADDRESS 
$ BBS #31_R3,5$ :CHECK FOR SYSTEM SPACE ADDRESS 
BSBB mnGéIN REGION t1$ REQUESTED SPACE IN EXITING SPACE 
8 BLBC — RO, 1008 [YES = DO CREATE THE HARD WAY 
10 ° MOVL § SCH$GL_CURPCB,R4 
11 BSBW 3 = MMGSTRY_A CHECK EXPANSION AND QUOTAS 
1g BiBC Oi :NO LUCK = DO IT THE SLOW WAY 
1 BSBW NNGSFAST CREATE SFILL IN THE PTE'S 
14 BRB 110$ 
15 
i : R2 = STARTING VA, R3 = ENDING VA 
18 + R6 = SUBROUTINE fO CALL, R&B = PROTECTION 
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55 00000000 ' 9F 
1B 51 \f 
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50 4 
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51 3 
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50 «654 
1A 
51 $8 
50 of 
0 
1 4 
51 0 1 
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D 11 
E CREATE & DELETE PAGE 16-SEP-1984 
PAGES AT SPECIFIED VIRTU 5=SEP-1984 
100$:  MOVAL W*MMGSCREPAG,R6 
BSBW MMGSCREDEL 
110$ PUSHL R 
BSBW Dep RE TRANGE 
BLBS RO,60 
MOVL RO, (SP) 
60$: oP 


POPR 
jae MMGSL_CALLEDIPL(FP) 


-DSABL LSB 


INPUTS 
R4 => STARTING VA 

ENDING VA 

=> SUCCESS OR FAILURE 


De Be Oe Be Se Se Oe Oe Oe Oe Oe ee 
$ 
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MMGSIN_REGION: : 
BICW 


#AXTEF RG 

BICW «= #*X1FF~RS 

SUBL3 -R4, R5, RE 

ASHL #-9,R6,R6 
30$ 


MNEGL R6,R6 
L R6 


PRADA AAAI ES BS BE EAA AAA AAA AIOPOPOPIPUPONNPIND— St 


PAD 9 ODNA ME WIN O OD NOA NEW 9 ONO UE WIN OOONOUE WN" OOM 


Bs:co:0 ESYSts 


R1 => By 5a? EXPAND REGION 
R6 => PAGE COUNT OF VA REQUEST (NOT EXPANSION SIZE) 


m< 


S Ma 04-00 Page 11 

RCJS DEL.MAR;1 (7) 
;MMGSCREDEL NEEDS 
; COMMON CREATE/DE 
;SAVE STATUS 


RETURN RANGE OPERATED ON 
;THIS STATUS WILL SUPERCEDE CREDEL 
RESTORE IPL AT CALL 


CHECK TO SEE IF ADDRESS SPACE OVERMAPS EXISTING SPACE 


; GET THE REQUESTED PAGE COUNT 


GET A PAGE COUNT 


sMAKE IT A POSITIVE NUMBER 
:1T WAS SHORT BY ONE 


sASSUME THIS IS FURTHEST OUT 
;P1 PHD ADDRESS 


sFIRST FREE PO 


NOT _IN FREE SPACE 
sWHICH IS REALLY FURTHER OUT 


3R1_WAS REALLY CLOSER 
NOT IN FREE SPA 

;WE WERE WRONG THE FIRST TIME 
;BYTES NEEDED (ONE PAGE SHORT) 


sFIRST FREE P1 


NOT _IN FREE SPACE 
sWHICH IS REALLY FURTHER OUT 


3R1_WAS REALLY CLOSER 
NOT IN FREE S$ 

sWE WERE WRONG THE FIRST TIME 
sBYTES NEEDED (ONE PAGE SHORT) 


30$: 
: DECIDE IF THIS IS ALL PAST CURRENT END OF REGION 

MOVL  _R5,R1 
MOVL  a#CTLSGL_PHD,RS 
BBS #VASV_P1-R1,408 
MOVL PHDSL “FREPOVA(RS) RO 
CMPL = RGR 
BLSS 106$ 
CMPL = R&R 
BLSS 35 

6 CMPL = R17, RO 
BLSS  106$ 

e 35$ SUBL O'R 

$$ BRB eO8 

68 40$: MOVL PHDSL _FREPTVACRS) ,RO 

y CMPL  =—s RGR 

0 BGTR 106$ 

7 CMPL = RGR 

i BGTR 45$ 

7 CMPL =e R17, RO 

74 BGTR 1008 

75 MOVL. R4,R1 

76 45$ SUBL3 -R1.RO,R1 
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MOVAL 
MOVL 
RSB 


CLRL 
RSB 


Hep Maru SCMBISRG BGBERE UNE HasceegB! eB ae, 


mo Naha 
#1,R 


RO 


;ADD IN THE EXTRA PAGE 
; SUCCESS 


; FAILURE 
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AM/CON ROL REGION 5=-SEP=1 SYS.SRCIJS 
‘ «~SBTTL CNTREG = CONTRACT PROGRAM/CONTROL REGION 
FUNCTIONAL DESCRIPTION: 


EDEL.MAR;1 


CALLING SEQUENCE: 
CALLG ARGLIST,@#SYSSCNTREG 


INPUT PARAMETERS: 


Betinataps = NUMBER OF PAGES TO DELETE 
RETADR (AP) a RETURN ADDRES RANGE OF PAGES DELETED 
REMODE CAPD = ACCESS MODE TO CHECK AGAINST PAGE OWNER 
REGION(AP) a Q FOR PROGRAM REGION 
= 1 FOR CONTROL REGION 
IMPLICIT INPUTS: 
NONE 


OUTPUT PARAMETERS: 

RO = SYSTEM STATUS CODE 
IMPLICIT OUTPUTS: 

NONE 


COMPLETION CODES: 


SS$_NORMAL SUCCESSFUL tt le 
SS$_ACCVIO sACCESS VIOLATION 

at ILLPAGCNT : ILLEGAL PAGE COUN 

SS$_PAGOWNVIO sPAGE OWNER VIOLATION 


SIDE EFFECTS: 
NONE 
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EL c PAGE. SEP=1984 01:49:03 VAX/VMS Macro V04-00 Page 14 SY$ 
atta REG on 8: ety? te 9; 9 toys. SRCIS SCREDEL.MAR; 1 " ® v0é 
PARRA RASLASAASALALLESEE LEASE ESSE SESE SEE LACE CESSES ELEC CLAOSALAESEAEASIEASS ES 


eeeeeeeeeeeeeeee THE FOLLOWING CODE MAY BE PAGED eeeeeererearerate 
~-PSECT YSEXEPAGED 


RA RRRAAARAASAAERLALALLASALELELESE EEE EEE SEE EERE E EERE EE EEE EES EES 


sENTRY EXESCNTREG, *M<R2,R3,R4,R5,R6,R7> 


— 


SUBL #-MMGS$C_LENGTH,SP RESERVE SCRATCH AREA 

BSBe mncse RETADRINI INIT RETURN RANGE AND SCRATCH AREA 
SUBL3. #1 PAGENT (AB) RI :RI=DESIRED PAGE COUNT = 1 

BITL ac<v VPG PAGE COUNT TOO LAR 

“C<VASM_P1 ! VASA EY STEM>>@-9, R1:(HIGH 11 BITS NOT CLEAR 

BNEQ Os: BRANCH FOR ERROR IF NOT CLEAR 

ASHL #9,R1,R1 ‘FORM BYTE COUNT 


; eeeee LOCK THE PROCESS HEADER HERE 


SETIPL #IPLS$_ASTDEL :NO AST'S WHILE pMQDIF YING THE PHD 
MOVL a#CTLSGL_PHD,RS *R5=PROCESS H 
BLBS REGIONGAP) © 16$ {BRANCH IF CONTROL REGION 


FORM R2 = THE FIRST ADDRESS TO DELETE, AND R3 = THE LAST ADDRESS 
DELETE STARTING FROM THE END OF THE REGION 


SUBL3 #*X200,PHDSL_FREPOVA(RS), Re LAST ADR IN PO SPACE 
SUBL3 -R1,R2,R3 RANGE TO DELETE 
BRB 10 Th COMMON DELETE CODE 
10$:  ADDL3 #*X200,PHDSL_FREP1VA(RS).R TEND OF P1 SPACE 
ADDL3 R1,R Re R3 'END OF RANGE TO DELETE 
$:  BRW DELCOM :TO THE COMMON DELETE CODE 
$: MOVZUL #SS$_ILLPAGCNT,RO SILLEGAL PAGE COUNT 
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TE & DELETE Pace SEP=1984 01:49:03 VAX/VMS Macro v04-00 Page 15 
INET SERATCH AREA 'ScSEpedond Od:coscg Fenevee Hecceyoe Oo, = Page 13, 

gg *SBTTL_INADRINI, RETADRINI = INIT SCRATCH AREA AND RANGES 

: FUNCTIONAL DESCRIPTION: 


: GET THE INPUT RANGE, I 
; THE SCRATCH AREA WHICH IS AS 


CALLING SEQUENCE: 


BSBW MMGSINADRI 
BSBw MMGSRETADR 


INPUT PARAMETERS: 

NONE 
IMPLICIT INPUTS: 

MMGSC_LENGTH BYTES RESERVED ON TOP OF STACK AND ADDRESSED BY FP 
OUTPUT PARAMETERS: 


yi IALIZE T Ay RETURN RANGE, AND IN 


ITIALIZ IT 
UMED TO ALREADY BE RESERVED ON THE 


IALIZE 
STACK. 


' Ay INPUT RANGE AND FALL INTO RETADRINI 


I 
NI T RETURN RANGE AND SCRATCH AREA 


RG, RS CONTAIN THE INPUT RANGE If ENTERED AT INADRINI 
MMGSL_MAXACMODE (FP) AXIMIZED ACCESS MODE 
MMGS$L~CALLEDIPL (FP) = CALLERS IPL 
MMGSL~SAVRETADR(FP) RETURN ADDRESS SPECIFIED BY USER 
USER SPECIFIED RETURN RANGE INITIAL LIED TO =1,-1 
IMPLICIT OUTPUTS: 
NONE 
COMPLETION CODES: 
$$$_ACCV1O ZACCESS VIOLATION 
SIDE EFFECTS: 
NONE 
MMGSRE TRANGE 


+ 
FUNCTIONAL DESCRIPTION: 


THIS ROUTINE RETURNS THE RANGE OF PAGES OPERATED ON TO THE 
USER SPECIFIED ADDRESS. A ZERO ADDRESS INDICATES NO RETURN RANGE 
AND THE ADDRESS IS PROBED FOR WRITING 8 BYTES. 


CALLING SEQUENCE: 
BSBW MMGSRE TRANGE 
INPUT PARAMETERS: 


tt § 2QOODODOOOO OW OOO 000 OO O00 0000 09090969 09 0909 SIN NIN NINN NIAAOOOOAARA 
OONA ME WIN @§ OOO NAME WIN O OD NAME WIN O OD NA EWI  O OONOA MEW" OVOONOUFSW OO 


DOODOODOODOOOOO OO OOOOOOOOOOOOOOOOOOOOOVOOOOOOOOOVOOOOVOOOOOOOOO 


Be Se Se Ge Se Ge Se Se Ge Ge Se Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Se Ge 
+ 


11 

FATE HIPELELEARhen ECREBCHBBS SUSAREQE WAMAUMCCRNOET%Bsn,1 P06 Af, voi 

Ri, R2 = RANGE OF ADDRESSES TO BE RETURNED 
IMPLICIT INPUTS: 

MMGSL_SAVRETADR(FP) = THE USER SPECIFIED RETURN ADDRESS 
OUTPUT PARAMETERS: 

RO PRESERVED 
IMPLICIT OUTPUTS: 

NONE 
COMPLETION CODES: 

SS$_ACCVIO ACCESS VIOLATION IF CAN'T WRITE RANGE 
SIDE EFFECTS: 
NONE 


SYSCREDEL = SYS 
voe-000 INADR 
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SYSCREDEL = SYSTEM SERVICE CREATE & DELETE PAGE Ig-SEB-1984 01:49 :08 VAX/VMS Ma © V04-00 Page 17 
v04=000 INADRINI, RETADRINI = INIT SCRATCH AREA 5=SEP-1984 9:40 [SYS.SRCIS SCREDEL.MAR: 1 (11) 
opr deasbenpslrnt tite ied corer! 
$ i : eeeeeeeneererere THE FOLLOWING CODE MAY BE PAGED teentereeeeerener 
0000 4 18 ; .PSECT YSEXEPAGED 
f 2 
97 5 g MMGSINADRINI:: 
54 04 at 09 97 754 MOVL _INADR(AP),R4 ZGET ADDRESS OF INPUT RANGE 
1 9B f 5 BEQL ACCVIORET sERROR IF NO ADDRESS RANGE SPECIFIED 
9 : IFNORD #8. (R4) ,ACCVIORET SBRANCH IF RANGE IS INACCESSIBLE 
54 64 7D OA , MOVQ = (R4) RG :GET THE INPUT RANGE 
Ab 8 MMGSRETADRINI:: 
50 OC AC 02 00 EF O26 7 EXTZV #0,#2, ;ACMODE (AP) , RO :GET CALLER SPECIFIED ACCESS MODE 
FD51" 30 O2AC 760 BSBW EXE SH CMODE :MAXIMIZE WITH PREVIOU 
FC AD 50 DO O2AF 761 MOVL mAGSL MAXACMODE (F 3 AND SAVE RESULT IN me SCRATCH AREA 
B3 166 SAVIPL ameter CACLE IPL CF P) RE CALLER vs IPL 
F4 AD O8 AC DO O2B7? 76 MOVL RETADRCAPY, EG L ners CET THE RETURN ADDRESS 
3} 8th Sobe bee mOyee RI ERG EMLT WHE RANGE TO ot =f 
C 766 ; . 
c rer : FALL THROUGH TO MMGSRETRANGE 
¢ 789 MMGSRETRANGE: : 
53 F4 AD 09 C2 770 MOVL § MMGSL_SAVRETADR(FP),R3 ;USER SPECIFIED RETURN ADR 
09 «1 C6 771 BEQL :BRANCH IF NONE SPECIFIED 
¢ Ae: IFNOWRT #8, (R3) ,ACCVIORET ‘BRANCH IF NOT WRITABLE 
63 51 7D 6 CE 03 on MOVa = R17, (R3) SRETURN THE RANGE 
50 01 B0 0 D1 Me MOVL #SS$_NORMAL ,RO 
8 DS org ; 
De 78 3 ACCESS VIOLATION 
6 Ds 780 ACCVIORET: 
50 Oc 3c 0205 781 MOVZWL #SS$_ACCVIO,RO :SET ACCESS VIOLATION CODE 
05 0208 782 RSB [AND RETURN IT 
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& DELETE PAGE 16-SEP-1984 t 8h:48 +03 AX/VMS Macro V04-00 Page 18 
ADDRESS SPACE PA 5=SEP=1984 SYS.SRCISYSC SCRE EDEL.MAR; 1 (12) 


-SBTTL DELTVA = DELETE VIRTUAL ADDRESS SPACE PAGES 
FUNCTIONAL DESCRIPTION: 


m 
< 
—— 
2020 


DELTVA DELETES PAGES STARTING WITH THE SECOND ADDRESS FROM INADR 
NDING WITH THE FIRST ADR IN INADR. THE SPECIFIED ACCESS MODE 
(MAXIMIZED WITH THE CALLER'S MODE) IS CHECKED AGAINST THE 
NER OF EACH PAGE AND MUST BE AT LEAST AS PRIVILEGED. 
EACH PAGE IS MADE INACCESSIBLE. 


CALLING SEQUENCE: 
CALLG ARGLIST,@#SYSSDELTVA 


INPUT PARAMETERS: 


INADR (AP) = INPUT RANGE OF ADDRESSES 

RETADR (AP) = RETURN RANGE OF ADDRESSES 

ACMODE (AP) = ACCESS MODE TO USE FOR CHECK OF DELETE PRIV 
IMPLICIT INPUTS: 

NONE 


OUTPUT PARAMETERS: 
RO = SYSTEM STATUS CODE 
IMPLICIT OUTPUTS: 


NONE 
COMPLETION CODES: 
SS$ etait. SUCCESSFUL COMPLETION 
SS$-ACCVIO ACCESS VIOLATION 
SS$~ PAGOUNVIO PAGE OWNER VIOLATION 
SSS$_NOPRIV 3NO PRIVILEGE, TRIED TO DELETE SYS PAGE 


SIDE EFFECTS: 
NONE 


PROPPONPINIMNID 4 2 2  MQOOOOOCOCOCOOCOOOOOOOOOOWCC@CDDDCD  -—it 
AISA @ 9 ONAN ES WIN 2 O OD NAME WIN 9 OD NOU EWN OOONAOUSE MO 


SOOOCOCOCOCOOCOCOCOOOSOOCOCOCOCOOCOCOSOOOOOOOOOOOOOOOOOOoOO YF 
090000000000 00 09 09 C9 C9 CO CD CO CD COCO COCO COCO COCO COCO OOO NINN Sm 


PIPPIN IPIPIPYNIPNIPDIPINIMPIPIPNIPININIPYPINYIN MPMI INIPINIPIPINININININININ 
CUOCVCVCVCVVCVCVTVCVCVCVVOVVOVVVVVVVVVCVVVVVVTVVVTVCCTC0C0C00"8 
DWDOOODOOOOOOOVOVOOOOOOVOOOOOVOOOVOVOOJOOVOJOOOOJOOOOOONO 


Be Se Ge Ge Ge Se Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Gets Ge Ge Ge Ge Sete Sete Gete 
+ 
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sitet CPNEE ou MCSESHBES SARIS WNCUMEHBEERBET.y MO ds) | 
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na 


(ARR RRAAAAAAAAALAAARARARAASLALAAA SALA A REAR ALARA RASA SALAS RRR RRA AAAS ADS OS 


eeeeeeeeeeeeenee THE FOLLOWING CODE MAY BE PAGED eeeeeeeereeereeee 


T vIC 
A ETE 
D9 
: 
D 
gS i 
0000 D9 3° .PSECT YSEXEPAGED 
b3 5 : PAARBARBASAALAALALARAAALALALAELALE SALE ELE RE RE RARER ERE SER ER ERA RARER ERE SEAS SG 
D 3 
OOF C D9 $ LENTRY EXESDELTVA, “M<R2,R3,R4,R5,R6,R7> 
SE 1¢ 3 DB § SUBL § #=MMGS$C_LENGTH, SP ;RESERVE SCRATCH AREA 
~ M4 19 D 40 BSB NAGSIN NABRINI [GET INPUT RANGE TO R4, RS 
E 4g INIT RETURN on Farin AND ngcrarcn AREA 
5 55 00 6 E 4 MOVL  RS,R [DELETE F ND ADDRESS 
53 54 —StC«é ES 44 MOVL R4-R : THROUGH PAE FIRS 
E9 46 : eee LOCK THE PROCESS HEADER HERE 
E9848 SETIPL #IPLS_ASTDEL :NO AST'S WHILE MODIFYING THE PHD 
55  00000000'9F 0 0 E 49 @#CTLSGL_PHD,RS TADDRESS OF PROCESS HEADER 
1452. 1E €0 0 F 850 BBS aVAS. P17R2,10$ SBRANCH IF P1 SPACE ADDRESS 
Fe 538 ; PO SPACE ADDRESS 
28 AS 52 D1 O2F7 854° CMPL = R2,PHDSL_FREPOVA(RS) =»; FIRST ADDRESS WITHIN REGION 
é 1F 0 FB 855 BLSSU RANCH IF YES 
28 AS) «6553)—COD1s«D FD 36 CMPL PHDSL_FREPOVA(RS) iF SECOND ADDRESS 1S ALSO BEYOND END 
1F 3 01 85 BGEGU 208 [THEN FORGET ADJUSTING THE RANGE 
52 28aS O01 C 03 38 SUBL3 #1,PHDSL_FREPOVA(RS),R2 :START WITH FIRST EXISTING PAGE 
18 «11 0 5 BRB 20$ 
9 OA 860; 
04 A30A 861 Ss: RET 
B3oe Bes | 
0B 64 : P1 SPACE ADDRESS 
50 30A5 000001FF ef C1 68 66 10$:  ADDL3 - #*X1FF,PHDSL_FREP1VA(RS) RO ;FIRST BYTE ADR NOT IN Pt SPACE 
a Sana MEP WETHUN esto 
53 50 01 0319 63 C RO,R3 [IF SECOND ADDRESS IS ALSO BEYOND END 
04 1E O31C p BGEGU 208 [THEN FORGET ADJUSTING THE R 
52 50 01 C1 031 Re fie ADDL3 #1,RO,R2 :START WITH FIRST PAGE IN Fel 
7 
7%  O(SP) = SAVED CALL ER "S IPL, R2 = STARTING VA, R3 = ENDING VA 
03 i + R6 = SUBROUTINE TO CALL 
56 00000141°EF DE rt bevcon: MOVAL L*MMGSDELPAG,R6 :R6 = ADR OF INITIAL DELETE SCANNER 
? ‘CALLED TO SCAN WORKING SET LIST 
7E «53 52 ( 9 0 SUBL3 -R2, R3, -( SP) [SAVE WHETHER STARTVA = ENDVA 
1 D BSBB Rags CREDEL :DO THE DELETION 
‘fs F ; TSTL (Ses [IF STARTVA WAS = ENDV 
06 1 1 BEQL 10% [SKIP THE RETURN RANGE EXCHANGE 
7D 3 4 MOVG = R11, R2 SEXCHANGE R1 AND R2 


SYSCREDEL YSTEM S E CREATE & DELETE PAG 16-SEP=1 14 AX/VMS © V04-00 Page 
v04- DED VA = sft HE vin UAL ADDRESS PASE PA g-S6F -SEP=1 138 8}: 23; 9 Heys eR SR ci? SCREDEL MAR: 1 ° (9) 
51 53 00 5 ‘on MOVL  R3,R1 SVIA R3 
$ "  ENBINT MMGSL_CALLEDIPL (FP) ;RESTORE CALLER'S IPL 
0 »D D : PUSHL R [SAVE CURRENT STATUS 
1 13 F BSBB NMNGSRETRANGE ZRETURN THE RANGE DELETED 
02 6 E 41 0 BLBC —- RO, 20 TERROR = USE THIS STATUS 
A 0344 891 POPR 3GET BACK OLD STATUS 
4 0346 892 208: RET SAND EXIT 


SYS 
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N11 
ATE & DELETE PAGE 16-SEP-1984 01:49: AX/VMS Macro V04-00 Page 21 
Ett COMMON LOOP sett 7 94:43:98 SYS.SRCJSYSCREDEL.MAR; 1 . (da 
.SBTTL CREDEL = CREATE/DELETE COMMON LOOP 
NPUTS 
R2 = FIRST ADDRESS TO CREATE/DELETE/SET PROTECTION 
R3 = LAST ADDRESS TO CREATE/DELETE/SET PROTECTION 
R6 = SUBROUTINE TO CALL 
CREPAG, DELPAG, SETPRTPAG, LKWSETPAG, ULWSETPAG 
= SAVED AND READY TO USE AS LOOP INCREMENT 
R8 = NEW PAGE PROTECTION IF THIS IS SETPRT 
MMGSL_MAXACMODE(FP) = MAXIMIZED ACCESS MODE 
UTPUTS: 
RO = COMPLETION CODE 
R1 = FIRST ADDRESS CREATED/DELETED 
R2 = LAST ADDRESS CREATED/DELETED 
R4 = PCB ADDRESS 
RS = PROCESS HEADER ADDRESS IN P1 SPACE 
R6,R7 ALTERED 


»PSECT 


SCREDEL:: 


= 
uw 
nnnnnn 


0 

I 

I 
; ALL ee ARE EXP 
ee FOR 9 


RSB 
MOVZWL 
CLRL 


YSEXEPAGED 


PROCESS CONTROL BLOCK 


PROCESS HEADER ADDRESS (P1 SPACE) 
wy GES - 1 LEFT TO PROCESS (INCLUDING THE ONE IN R2) 
GOING FORWARD IN ADDRESS SPACE 
GOING BACKWARDS IN ADDRESS SPACE 
C 

0 


ER OF PA 
X200 IF 
say 00 IF 
ECTED TO PRESERVE R2 
UTINE TO DO MORE THAN ONE PAGE BY 
L 
Fe $08 
1/R3,50$ 
CRECOM INIT 
MMGSL_PAXACMODE (FP) .RO 
MG [ PAGE SUBR (FP) 
RO,4 
R7_R 
308 


R6 
CRECOM_DONE 


#SS$_NOPRIV,RO 
MMGSC_SAVRETADR(FP) 


PRARARASASARAAAAAAARALALSASALE RAE EASE REALE REARS R SESE REARS RRR RRS ERS SS OS 


keaekeeerererenxee THE FOLLOWING CODE MAY BE PAGED eeeeeereneaeeeeee 


€ 
GS RAAT AAR AAA AEARAAAAAAAAARAAAEARAAARAREAEAAREAAE EEE 


; EACH a! THE arte OO TS IS CALLED WITH THE FOLLOWING REGISTERS 
VIRTUAL ADDRESS OF gg FS aaa ON (LOW 9 BITS CLEAR) 


R4, RS, R6,_R7, BUT IT IS 


“ADDING R7 TO R2 FOR EACH 


CHECK FOR SYSTEM SPACE ADDRESS 
CHECK FOR SYSTEM SPACE ADDRESS 
sACCESS MODE 

;CALL_ THE PER-PAGE ROUTINE 
:BRANCH IF ey CONDITION 
NEXT VIRTUAL ADDRESS 

;LOOP THROUGH THE PAGES 

:NO PRIVILEGE 

NULL RETURN ADR FOR NULL RANGE 


SYS 


5 
A al 5 
OFF 


1 1FF 
1 


38 A6 
00000000 ' GF 
00000000 * GF 
00000000 ° GF 
00000000 * GF 


00000000 ' GF 


2c 
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woe 
ANAOSSCOO 


ou 
Wo 
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Wi. AAI AA. AANA 


SF AWAAAA A.A WWI A HANNAN NIAAA AIA AIA AAAI AA ANI 


HW MWHWHHMMMNOOCVCOCCWWWWD)S YS KYPPP PP P OOOO O DO OWWWWWW OOO NII NIOAAAOAAO 
OA MOD TH OF NS OL — NO WWOMDDDVNW4O COOUW—-MMMMMMDO—oC OVaDDIIaw>yS 


SOOOOOCOOGOOCOCCOOOCOOOOOOOOoOooOO 
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ow 
zm 
ma 


SOSOOSOOGOOOOOOOOOOOOOOOOOOOOOOOOOOOOVOOOOVOOOOOOOOOOOOOOOOOOO r< 


SOOGOODOSGOOO OOO OOOO 00009 09 0009 09 09 09 09 NII NNN NNN NP PAA AA AAA A MMIMIIMIVMIVIVI 


NAVE WO ONO UE WN 


te 
sn 


ODOWNA NE WN $$ 9 OONAU EWN SO OD NAME WN OOONAUE WW TS 


60$:  CMPL RO, #SS$_ABORT 


a a a ats HS ws 
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CREATE & DELETE PAG 16-5 4 01:4 AX/VMS v04-00 Pp SYS 
DELETE COMMON LOOP g-8EF =|38¢ 8}: 23; 93 Heys SR SR (42 SCREDEL. MAR; 1 (i v04 
RSB 
.DSABL LSB 
; INITIALIZATION FOR PER/PAGE LOOP 
CRECOM_INIT: 
MOVL SSCHSGL cURPCE, »R4 :PROCESS CONTROL BLOCK ADDRESS 
MOVL LScL- ‘PROCESS HEADER ADDRESS 
MOVL ra “ihe $. = PAGE SUBR (FP) TADDRESS OF PER/PAGE SUBROUTINE 
ASHL TADDRESS INCREMENT IF GOING FORWARDS 
ASHL #5" rf, R ‘HIGH VIRTUAL PAGE NUMBER 
ASHL #=9-R2-R ‘LOW VIRTUAL PAGE NUMBER 
SUBL wR ‘NUMBER OF PAGES BASE 
: THE FOLLOWING COMPARE MUST BE DONE WITH R2, R3 EXACTLY AS THEY 
LLER SO THAT A A RANGE OF 205,204 WILL YIELD A RETURN 


; CAME FROM, THE 
; RANGE OF Metre 260 INSTEAD OF 200, 3FF 


CMPL R2 R3 :GOING FORWARDS IN THE ADDRESS SPACE? 
BLSSU 10 ‘BRANCH IF YES 
BGTRU 5$ ‘BRANCH IF BACKWARDS 
BBC #VASV_P1,R2,108 SIF EQUAL, THEN FORWARD FOR PO 
: ACKWARD FOR P 
5$ MNEGL re i ‘NO, BACKWARDS, MAKE PAGE COUNT POSITIVE 
MNEGL i ADBRESS INCR ERENT x200 
10$:  ASHL ALIZED STARTING vA. 
MOVL Roc RNGST SVSTARTVA(FP) i aNe STARTING VA 


+ COMPLETION PROCESSING FOR PER/PAGE LOOP 
CRECOM_DONE : 
MO 


VL WNGSL _SVSTARTVACFP) .R1 RECOVER STARTING VIRTUAL ADDRESS 
CMPL ZANY PAGES SUCCESSFULLY PROCESSED? 
BEQL Bos" ANCH IF NO 
10$:  SUBL  R7,R2 ‘BACK TO LAST PAGE PROCESSED 
BBS #31,R7,45$ :BRANCH 1f GOING BACKWARDS 
BISW PATE Re sENDVA IS END OF PAGE 
45$:  BISW #*XIFF.RI sENDVA IS END OF PAGE 
46$:  MOVL. PCBSL_JIB(R4),R6 
SUBL3 JIBSL~PGFLCNT(R6) ,JIBSL_PGFLQUOTA(R6),R6 ;PAGE FILE PAGES IN USE 
CAEL e go CTLSGL_VIRTPEAK PEAR sMAINTAIN MAX PAGE FILE USED 
MOVL RO,G°CTLSGL_VIRTPEAK § ;SET NEW PEAK VALUE 
mOVL R go°cTLSGL- IPAGEFL [SET NEW PEAK VALUE 
50S: CHL e go°CTLSGL_IPAGEFL :MAINTAIN MAX PAGE FILE USED (IMAGE) 
OVL  R6,G*CTLSGL_IPAGEFL ;SET NEW PEAK VALUE 
528: RSB 


0 ;WAS IT AN ABORT OF A CRMPSC 
BEQL 108 [YES = FIX UP R2, LEAVE RETADR ALONE 
CLRL = MMGSL_SAVRETADR(FP) SNULL RETURN ADR FOR NULL RANGE 
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SYSCREDEL = SYSTEM SERVICE CREATE & DELETE PAG 16-SEP-1984 01:4 © V04-00 Page 23 SYS 
vORsOB0 CREPAG = CREATE A SINGLE PAGE =SEP=1984 t 83: 23: 93 GE SRCIS SCREDEL.MAR; 1 ° (9) v04 
4 0 .SBTTL CREPAG = CREATE A SINGLE PAGE 
4 1011 ;+ 
402 1012 : FUNCTIONAL DESCRIPTION: 
402 1013: CREPAG CREATES ONE PAGE IN THE PO OR P1 PAGE TABLE. IF NECESSARY 
402 1014 : THE PAGE TABLE IS EXTENDED, WHICH CAN FAIL WHEN THERE ARE NO PTE'S 
402 1015 : AVAILABLE. THE PTE IS DELETED IF NECESSARY AND IS THEN SET 
4 1 : TO THE VALUE SPECIFIED. 
40 18 : CALLING SEQUENCE: 
49 p : BSBW MMGSCREPAG 
4 ‘ + INPUT PARAMETERS: 
402 1024: RO = MODE FOR CREATING NEW PAGE IN LOW BYTE 
402 1025 : MMG$V_CHGPAGFIL SET IF CHARGING PAGE FILE QUOTA FOR THIS PAGE 
402 1 6 : R2 = VIRTUAL ADDRESS OF PAGE TO CREATE (LOW 9 BITS = 0) 
40 1027 : R4 = PCB ADDRESS 
0402 1028 : RS = PROCESS HEADER ADDRESS = P1 OR SYSTEM SPACE 
040 1029 ; R6 = COUNT = 1 OF PAGES REMAINING TO PROCESS INCLUDING THIS ONE 
402 1030: R7 = +*X200 IF GOING FORWARDS, -*X200 IF GOING BACKWARDS 
040 1: RB = NEW CONTENTS OF PAGE TABLE ENTRY 
040 10 ; THE CURRENT IPL MUST BE AT ASTDEL 
040 i 5 : IMPLICIT INPUTS: 
iit 
040 19 8 : OUTPUT PARAMETERS: 
hs 1826 : RO = ERROR STATUS CODE 
040 41 ; R2 PRESERVED 
th ‘8 : IMPLICIT OUTPUTS: 
0402 1045: PTE CORRESPONDING TO SPECIFIED VIRTUAL ADDRESS IS DELETED AND 
a8 46 : THE DESIRED PTE IS STORED 
402 1048 : If PAGE TABLE EXPANSION IS NECESSARY THEN THE FOLLOWING 
rf 49 : ARE AFFECTED: é 
402 1 39 : PHDSL_FREPOVA OR PHDSL FREPIVA :1ST FREE PAGE AT END OF PO/P1 PAGE TABLE 
402 1 ; ; PHD$L~POLRASTL OR PHDSC_P [LENGTH OF PT IN HARDWARE PCB 
402 1053 ; PR$_POLR OR PR$_PILR :LENGTH OF PT wil PROCESSOR REG 
4 4 : PHDSL_FREPTECNT~ [FREE PTE COUNTER 
4 3 > COMPLETION CODES: 
402 1058 : SS$_NORMAL ;SUCCESSFUL COMPLETION 
4 ; SS$$~VASFULL :VIRTUAL ADDRESS SPACE FULL 
402 1 > SIDE EFFECTS: 
4 1 § : NONE 
4 1 3 
402 1064 :-- 


—_——— _ - . - crc 
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SYSCREDEL = SYSTEM SERVICE CREATE & DELETE PAG 16-SEP-19 :49:03 VAX/VMS v04-00 Pa 4 SYS 
V0e=000 CREPAG ~ CREATE A SINGLE. PACE BSEp= 1984 O3:c9:40 Lens eRCISVSCREDEL MAR: 1 9 6%) vod 
: ' $6 : tRARAAAAAAAAAAELALALELLLALESEALERLARERERLERE RR EA EERE SESE RESET EEE EERE ESS 
$3 : keeeeeereeeeeere THE FOLLOWING CODE MAY BE PAGED teeeeereneeeerere 
0000 4 ‘1 ; .PSECT YSEXEPAGED 
r } 78 : tAARAAAAASAALALALALAALALELALELERRESERESEA SESSA LEASE SESE RESALES E SASSER SEES 
402 1075 ° -ENABL LSB 
205 1099 
40 £8 : PAGE TABLE ENTRY IS NOT EMPTY, MUST DELETE THE PAGE FIRST 
40 1086 BELETEFIRST: 
50 04 AE 9A 0402 1081 MOVZBL 4(SP),RO sACCESS MODE 
00000141" EF 16 040 1088 MMOSDELPAG ‘DELETE THE PAGE 
5350 £9 40¢ 1 BLBC 35 ‘BRANCH IF ERROR 
03 BA O40F 1084 POPR #*M<RO,R1> 1 = ACCESS MODE 
50 51 00 O41) 19 5 MOVL : PLACE IT IN RO 
0414 19 iz : FALL THROUGH TO CREPAG 
0414 1089 MMGSCREPAG:: 
50 DD 0414 1090 PUSHL RO ;SAVE ACCESS MODE 
1752 iE €1 0416 1091 BBC #VASV_P1,R2,20$ :BRANCH IF PO SPACE 
OIA 1038 + Pl SPACE 
53. 00D0 C5 DE BeIA 1095 ° MOVAL PHD$L_P1BR(R5),R3 ADR OF POINTER TO P1PT 
7E AS 52 C3 O41F 1096 SUBL3 R2,PHBDSL_FREPIVA(RS), -($P) ;BEYOND END OF REGION? 
40. «19 04 4 7 BLSS  80$ ;BRANCH IF NOT 
Oe 6 1099 O(SP) = NO. OF BYTES BEYOND P1VA (INTEGRAL NO. OF PAGES) 
4 6 1190 ; NOTE THAT THIS IS “X200 SHORT OF WHAT MUST BE ADDED TO REGION 
51 56 57 CS 0426 11 : ; MULL3 R7,R6,R1 ;NO, OF BYTES LEFT TO PROCESS 
42A 11 :+ IF GOING FORWARDS, - IF GOING BACKWARDS 
39 18 042A 1104 BGEQ 408 SBRANCH IF EXPANSION IS NOT IN TH 
42C 11 SNATURAL GROWTH DIRECTION OF THE REGION 
51 51 CE O42¢ 11 MNEGL R1,R1 'NO. OF BYTES TO ADD TO SIZE OF REGION 
12. «11 4 f 1 BRB 30$ :TRY TO EXPAND TO FIT LAST PAGE 
4 1 : PO SPACE 
53 o0cg CS DE 0431 1111 208: HOVAL PHDSL_POBR(RS) ,R3 :ADR OF POINTER TO POPT 
7E° 52)~—S2B CAS tS 436 111 SUBL3 PHDSL~FREPOVA(RS) ,R2,-(SP) gBEYOND END OF REGION? 
3% 6«( 4 8 Wi BLSS 80% sBRANCH IF NOT 
-043D 1115 : O(SP) = NO. OF BYTES BEYOND POVA (INTEGRAL NO. OF PAGES) 
4 p Wi : NOTE THAT THIS IS “X200 SHORT OF WHAT MUST BE ADDED TO REGION 
, »R6,R1 . OF BYTE LEFT TO BE CREATED 
“7 = SS t 14] Wake, 5708 Fe OE ORNG. FORWARD = IF GOING BACKWARDS 
22. «15 4 1 BLEQ 408 [BRANCH IF NOT FORWARD 
443 1122 : TRY EXPANDING REGION TO FIT LAST PAGE TO BE CREATED 


= SYSTEM SERVICE CREATE & DELETE Ate Ig- SEP= 1984 01:49 :03 AX/VMS M v04-00 Page 25 
CREPAG = CR A SINGLE PAGE -SEP=1 SYS. SRCISYSCREDEL. MAR; 1 (16) 
; CREATION IS IN THE DIRECTION OF THE EXPANDING REGION 
51 6 CO $0: ADDL (SP ;AMOUNT EVENTUALLY NEEDED TO EXPAND BY 
51 0200 b MOVAL Pye06tR1) R1 
90 4 BSB By EXPANDC ‘TRY EXPANDING BY THAT MUCH 
2 0 E R BOs ‘BRANCH IF REGION EXPANDED 
0244 8F 81 neu RO. #SS$_VASFULL 
D 12 BNE 40$ :NOT VIRTUAL ADDRESS SPACE FULL 


CAN'T EXPAND REGION BY THE FULL AMOUNT THAT WILL BE NEEDED 
; SO EXPAND BY WHAT IS LEFT UNLESS THAT'S NOT ENOUGH FOR THE CURRENT PAGE 


51 2C AS 09 9¢ ROTL #9, PHDSL_FREPTECNT(RS),R1_;SPACE LEFT FOR EXPANDING 
aon. 6 CMPL R11, (SP) ;EXPAND BY SPACE REMAINING UNLESS 
:MORE IS NEEDED FOR THIS PAGE 
0B 14 BGTR 508 ‘BRANCH IF THERE'S ENOUGH 
005¢ 31 35$: BRW 90$ ‘OTHERWISE VIRTUAL ADR SPACE FULL 
: JUST EXPAND FOR THIS PAGE 
51 6€ 00000200 8F C1 40$: ADDL "1200 (SP),R1 ;AMOUNT NEEDED FOR THIS PAGE 
006 0 50$:  BSBW EXPANDCHK ‘TRY EXPANDING BY THIS AMOUNT 
4E 50 «E9 BLBC —_ RO, 908 :BRANCH IF NO ROOM 


O(SP) = GARBAGE, 4(SP) = ACCESS MODE, 5(SP) NONZERO IF CHARGING PAGE FILE QUOTA 
; R2 = VA, R3 = ADDRESS OF POINTER TO APPROPRIATE PAGE TABLE 


CDOOCOCCOCCCOGCOCOOCGOOOOSOOOOSOSOOOOSOSOO a- 


PRR R RRR RRR RRR RRP RPP PRP PP PPP RPP PPP PPE 
OO O0009 090009 INI NINN NINN NIAAA AAA AAU MUI 


ANS OD OWT 9 OWIWIWIWIWIO OS MIVIMIUIVO OO CWOOCOCO CV OOO* TD OWN 


ce a ee a a a a a a 2 9 4 os bs —) 4 — > 9 —) — — 2 2) — — > — — 42 ss 9 9 —9 —» 4 4 4 4 4 4 4 ma 


51 52 EF B0$: EXTZV VAsy VPN,#VASS_VPN.R2,R1 : VIRTUAL PAGE NUMBER 
00 8341 5 TSTL [Rr] PTE an Pry? 
12 BNEQ SER TEPIRST BRAN F NO, MUST DELETE IT 
OA 04 AE 08 €1 BBC snnGSV CHGPAGFIL,4(SP), 85 BRANCH IF NOT CHARGING FOR PAGE FILE 
BO C4 00 MOVL L_JIB(R4) ,RO :GET JIB ADDRESS 
3C AO OD DECL SIBSL~PGFLENT RO) SCHARGE A PAGE FILE PAGE 
38 19 BLSS 1008 SBRANCH IF OVER QUOTA 
00 8341 58 00 85$:  MOVL  R8,a(R3)CR1) :STORE NEW PTE 
2858 #41F €1 06 BBC wPTESV VALID, «Fe 87$ :BR IF NOT WINDOW/MA78Q GLOBAL PAGE 
0€ 58 15 €0 04 BBS #PTESV- =H NDOW,R8,86$ _:BR IF IT IS A WINDOW PAGE 
7E «265815 00 EF 049A EXTZV #PTESVEP sy optesé PFN,R8,-(SP) EXTRA T BR 
00000000'GF 8E 01 049F CMPL (SP)+, Ven MMéSeL “MARMEM 1S THIS A 0 GLOBAL PAGE? 
16 «15 AAG BLEQ ©: 87$ BR IF Not MAY 0 GLOBAL PAGE 
53-9341 De 4A 86$:  MOVAL @(R3)+CR1),R3 :GET SVAP te” 
50 01 DO O4AC MOVL 1,R S INDICATE ADDITIONAL LOCK 
GAF 68 DSBINT #IPL$_SYNCH TRAISE TO 
00000004'GF 16 0485 : JSB G“MMGSMOVPTLOCK [LOCK THE PAGE MTABLE PAGE IN WS 
4BB £0 oe ENBINT TRESTORE IPL 
50 01 3 4BF 7 MOVZWL #SS$_NORMAL ,RO SINDICATE SUCCESSFUL COMPLETION 
E 08 fO b4c 78 90$: ADDL #2#47SP “CLEAN OFF STA 
| Peleg 
i 26 : EXCEEDED PAGE FILE QUOTA 
0080 ¢4 00 04¢ 78 100$: MOVL  PCBSL_JIB(R4),R :GET JIB ADDRESS 
ee AO 06 O4CA 8 INCL JIBSL™ ~pUPLENTERO) SRESTORE CORRECT COUNT 
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;EXCEEDED QUOTA 
RETURN THE ERROR 


MOVZWL 
BRB 
-DSABL LSB 
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G 1 
ICE CREATE & DELETE Ate 16-SEP-1984 01:49:0 AX/VMS Macro Vv04-00 P 7 
- Move WSLE for PT into lo ioe 4:09:08 LEYS SRCISYSCREDEL MAR: 1 = (46) 


-SBTTL MMGSMOVPTLOCK = Move WSLE for PT into locked portion of ws 
: FUNCTIONAL DESCRIPTION: 


This routine is used to lock in the worn $85 those page table pages 
that gentere WINDOW PTEs and PTEs ma ging A global section pages. 
This is needed because PFNMAP and MA780 pages do not have woe the set 
his Fog 7s which would allow the user to control locking in the 
working set. 
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om 


The page table pages are moved into the locked portion of the working 
set, instead of just turning on the locked bit in the WSLE for two 
reasons. First, there would be no way to evi pute the process header if 
the normal locking was done by snc roment ioe the PFN database SHRCNT, 
unless the swapper was taught about the PTWSLELCK array. Second 
moving a WSLE that cannot be replaced, out of the way of the working 
set scan routine, opt er eee the scan == as is done for normal P0/P1 
pages that an user locks in the working set. 


INPUTS: 
RO = Indicator of whether to increment or decrement the 
page table page WSLE lock array (+1 or <1) 
VAPTE for some virtual address in PO or P1 
PCB of process 
R5 = PHD of process 
IPL = SYNCH 
For MMGSMOVPTLOCK1 only: 
R2 = Adr of count byte for # locked WSLEs in this page table page 


OUTPUTS: 


Dw 
fw 
“nu 


DOOOoOOOOOOOCOCSOSoSO 


PRR R RRR RRR RRR RRR RRR RRR RRP RRR RR PERE 
VOUVVVVV CVU VOC OUVUCUUCUUUCU"U"C"C"0"0"00009 


Sete Ge Se Ge Se Ge Ge Se Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Se Ge Ge Ge Ge Fe Ge Se Sse Ge Ge Se 


4D 
res ALL registers unchanged. 
4D The yorking set list entry for the page table page that contains 
4D the PTE pointed to by R3, may be moved in or out of the locked portion 
4 of the working set. The page table page WSLE lock array is altered as 
r appropriate as is the count of locked page table pages. 
0000 -PSECT SMMGCOD 
Enel $B 
MMGSMOVPTLOCK1:: 
OF 99 PUSHR #*M<RO,R1,R2,R3> :Save registers 
m= BRB 10$ Continue in common code 
MMGSMOVPTLOCK:: :Called for PFNMAP/MA780 global pages 
PUSHR #*M<RO,R1,R2,R3> Save registers 


SUBL3 PHDSL_POBR(RS),R3,R2 Byte offset of PTE 
- R1 :Byte index of containing page table 
ADDL PHOS, PTWSLELCK(R5) .R5,R2 sLocked working set List entries 
R1,R Address f count byte for # of locked 
; WSLE's in the page table 


=O OO NIA NEW O OOD NIA NE WIR $$ 9 OO NIA ME WIN 9 OO NAME WI 9 COONAN WP  OOONOUM 


PWN AIATIIININININININININ 3 3 3 4 3 3 3 3 BQO OOOO O0000000000000MmaM000 


POP POPOPOPOPIPOPPOPORIPONIPOPONIPOPOPOPIPUPIPOPIPOND UNINONOPUPPOPUPOPONPINUNINNY) 3 se KS 


ee ee em ee ee a ed ed ed ed ed ed td ed dS = dd 2 dd 2d 3 8 2 — 2 2 2 2 — 2 om 


DOO — NAO LS 


=" 
So 
A ad 


= PFN of first WSL slot 

= Index to first WSL slot 
= Index to second WSL slot 
= 
= 


H 1 
SYSCREDEL = SYSTEM SERVICE aS REAte & DELETE PA ug 16-SEP-1984 01:49: AX/VMS Macro V04-00 Page 28 
Mite MMGSMOVPTLOCK = Move WSLE for PT into lo §- Sfp 1386 84:43:98 YeyS. SRCISYSCREDEL.MAR; 1 . (98) 
0 19 124 TSTL R its his an eer = decrement? 
63 8 18 1 rk BLSS 20 "5 t is a dec of 
8 96 1D 1244 INCB R2) AvP ios "tor WINDOW/MAS 0 9 obal t page 
14 1F 1245 BGTR 40 :Branch if not the first in 
6C A 8 , 3 ¢$ INCW PHDSW_PTCNTLCK(R5) Another page table with aod *WSLE's 
0 1 4 124 BRB 40 sContinue in common code 
6 9 g 12468 208: DECB (R2) One less reason to lock page table page 
4 i 124 BGEQ 100$ ‘Br if PT page should remain locked 
6C A B . ' 408 DECW PHDSW_PTCNTLCK(RS) One less page table with locked WSLE's 
dD 1 ; 
6 <3 § i 3; Must pore a3 ge = S e goer inch of locked pores of working set. 
D 1254 ; The WSLSM_WSLOCK s not used for locking because there is no count 
3 ! 5 ; that tells the aethae when it can be yaad § 
52 0O€ AS 3C 3 >: $ MOVZWL PHD$W TG Re Index to second pated be set List hie 
51 53 15 O09 EF ‘eg 38 EXTZV. #VASV- VEN. AVAS S-VPN,R3,R1 ;Page # of PT contain ing this P 
51 0000'DF 41 bo 00 6 125 MOVL  aW*MMGSG SPIBASECRI1-A1 :PTE for this page table page 
-— wr Ff 00 EF O03C 1260 EXTZV #PTE$V BERS WPTESS _PFN,RI, ko ; PFN for this page table page 
B6e} 1261 list MEB 
041 1 $6 PFN 18 ENCE = ;Get the WSLX 
be} 126 MOVZWL POUR FN Ax_WSLXCROJ,R1>,= 
41 1264 OPCODE=MOVL 
041 1265 IMAGE=SYS_NONPAGED 
041 PSECT LOCAL_BLOCK 
0000 4 SeEer ZSINITSPFN_ PTRUP. TABLE 
00000041' 000 ADDR 7PFN 
3¢ 004 “BYTE ors _MOVZUL 
DO 000 BYTE ‘> PS" MOVL 
9 04 eRESTORE_PSECT 
51 0000'DF40 C 004 HOVZWL “ABE NSA _WSLXCROJ,R1 
ge DS 004 TST this an lock or an unlock? 
9 19 004 if it is an unloc 
52 1 Di 004 WSLE already in locked portion? 
1c 3019 if slrecey there 
99 11 R swap WSLE into locked o gertion 
52 , WSL Uf in locked porti 
15 18 7 BGEQ 100$ 3:Br if in dynamic portion. 
Oc AS) «651——o«wB»I | 7 CMPW R1,PHDSW_WSLOCK(R5) s38 it in permanent pert of ws 
OF 1F 7% BLSsuU 1008 :Yes = leave it ther 
52. 07 00 75 DECL Re Swapping WSLE with” last locked entry 
‘ . 
a 
' 
‘ 
’ 


PCB address 
PHD address - Pl or system space 


> RS 
qi; ; IPL = SYNCH 
09000000 "EF 1 60s: JsB MMGSSWA 
ome. 8 
OF 
9 


4 

5 PWSLE 

§ ADDW (SP) 47 +4 WSDYN(RS) sAdjust last locked slot in eynenic wS 
BSBW MMGSEXT NWS ;Re-compute extra dynamic working set 

100$: iM the SN Rt fh R3> Res ore registers 


n locked portion of WS 


ek tt tt — — — — ss 2 2 
IO 


§ $B now 
; 


-DSABL LSB 
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SYSCREDEL EM SERVICE CREATE & DELETE big 16=S po AXLVMS Macro V04-00 Page 29 
baat HK = EXPAND REGION CHECKING FOR $ §-8 1384 8}: 23: 93 SYS. eR CISYSCREDEL.MAR; 1 . a) 
F 93 LSBTTL EXPANDCHK = EXPAND REGION CHECKING FOR SPACE AVAILABLE 
F 1586 
; } 38 : INPUTS: 
F 4 38 : R1 = NO. OF BYTES TO EXPAND BY (INTEGRAL NO. OF PAGES) 
Ba ; Re = VIRTUAL ADDRESS (PROVIDING THE PO/P1 SPACE INDICATOR) 
GF 0 ; R5 = PROCESS HEADER ADDRESS 
oF 1 : : OUTPUTS: 
6F 1 3 
oF 4: RO = STATUS CODE 
F 5; SS$_NORMAL FOR SUCCESSFUL 
oF 1 8 ; SS$-VASFULL FOR VIRTUAL ADDRESS SPACE FULL 
ee : SSS" INSFWSL FOR INSUFFICIENT WORKING SET LIMIT 
6F 1308: R2, R3 PRESERVED 
aie 
6F 1 19 : RERRRARAAEEAE AEE REAR AAAAAAE AAA AARERAAAEEEAAAAREEEREAEEES 
ef ! \§ : keeeeerereeeeene THE FOLLOWING CODE MAY BE PAGED *eeeeneneneeeaeee 
F 1314; 
p 13 .PSECT YSEXEPAGED 
D 1 1 3 RARER RARER AERA AAA RAE AAAAAARAAAEARETAERRAAAAAAAAAT AREA 
D2 131 
D2 1 i§ EXPANDCHK: 
50 51 F7 8F D2 1320 ASHL  #-9,R1,RO ;NUMBER OF PAGES REQUIRED 
2c aS) 50 D? 1321 SUBL RO,PHDSL_FREPTECNT(RS) ENOUGH FREE PAGE TABLE ENTRIES 
2c DB 1 : BLSS 40 [BRANCH IF NOT 
1052. *1E Dp ; BBS #VASV_P1,R2,208 ‘BRANCH IF P1 SPACE ADDRESS 
E 5 : PO SPACE ADDRESS 
oocc cS) 50 el 1 $ , ADDL RO, PHDSL -POLRASTL (R5) sADJUST LENGTH OF REGION 
28 A551 £& 1 8 ADDL Ri. PHDS rEREPOVACRS) SAND NEXT FREE PO VIRTUAL ADDRESS 
EA 1 LDPOLR PHOSL _POCRASTL(RS) ADJUST aiiARDWARE LENGTH REGISTER 
09 00cc cs EA PHDSL “POLRASTL CRS) S*#PR$_POLR 
E ef 0 BRB BOs KIT THROUGH COMMON CODE 
F ; : P1 SPACE ADDRESS 
0004 cS) 50 F1 1334 208: SUBL R -PHDSL _PILR(RS) ;ADJUST LENGTH OF REGION 
30 A551 F6 1335 SUB Hoste FREIVACRS) [AND NEXT FREE P1 VIRTUAL ADR 
FA 1336 LOPILR PHOS jAN HARDWARE LENGTH REGISTER 
0B 00D4 CS FA TPR PHOSL,PILR(RS), $* HRS P 
48 FF 1337 30$: #§®8SBB UPDATPTCNT PDATE bax PAGE TABLE COUNT 
51 11 8 TSTw = sR TF NOT ENOUGH BYNAR IC WSLE'S LEFT 
OF 1 BEQL 508 [THEN TOO MUCH VA SPACE FOR WS LIMIT 
50 40 MOV ZL #SS$_NORMAL ,RO : SUCCESSFUL COMPLETION CODE 
1342 ; 
3 ‘§ + NOT ENOUGH ROOM IN VIRTUAL ADDRESS SPACE FOR SPECFIED EXPANSION 
2c aS 50 9 1345 dos: ADDL RO, PHDSL FREPTECNT(RS) :FIX UP FREE PAGE TABLE ENTRY COUNTER 
50 0244 BF p 46 mov we #S$$_VASFULL "RETURN "VIRTUAL ADDRESS SPACE FULL 


toned 


12 
SYSCREDEL = SYSTEM SERVICE CREATE & DELET PAGE 16-SEP-1984 01:49:03 VAX/VMS Macro v04-00 Page 
v04=0 EXPANDCHK = EXPAND REGiON CREEKING FOR S$ ~$Ee =| 38% 8}: 149: 93 YOYS. SRCJSYSCREDEL.MAR; 1 ° 3) 
1 1348 ; 
13 1349 ; ADDITION OF DESIRED VIRTUAL ADDRESS SPACE WILL RESULT IN TOO FEW 
13 4 t DYNAMIC PAGES IN tH HE VWORKING SET LIST. REFUSE TO ADD THE SPACE UNLESS 
; WE ARE BELOW QUOTA 
50 18 AS O08 AS Ad 0513 1 bos: SUBW3 — PHDSW_WSLIST(RS) ,PHDSW_WSQUOTA(RS) ,RO 
; é 19 1 4 INCW ORR sGET QUOTA 
50 AS 18 #1 CMPW RO, PHDSW_WSSIZE(R5) SARE WE BELOW QUOTA 
18 «(18 i, g BLEQU 55§ tN 
51 D 1 PUSHL R1 + SAVE VOLIATILE REGISTER 
7E SOAS 3¢ 1 : MOVZWL PHDSW_WSSIZE(RS) ,-(SP) ; SAVE CURRENT WSSIZE 
0 dD 1 PUSHL } =NO ADDRESS FOR PREVIOUS VALUE 
; 7F BF 9A 9 1360 MOVZBL #127, SAUGMENT WS BY 127 PAGES 
00000000 ' EF FB 052D «1361 CALLS #2,E% ESADJWSL 'CALL INTERNAL ADJUST ws ROUTINE 
BA 0534 1 66 POPR #*M<RO,RI> :RESTORE saved WSSIZE, R 
50 SO A Bi 536 136 CMPW PHDSW _WSSIZE(RS5), RO 7 | GROW AT ALL? 
12 053A 1364 BNE 30$ S, 20 TRY AGAIN 
D O53c 1365 55$ PUSHL R 
002C 0 53— 1 96 BSBW MMGSCONTRACT 3;GO CLEAN UP 
3 RA 541 136 POPR #*A<R5> 
50 011C 8F C 543 1368 MOVZWL #SSS$_INSFWSL,RO s INSUFFICIENT WORKING SET LIMIT 
05 548 1369 RSB 


Fa 3 ie 
v04-000 


—m 
uv- 


Faerie beeen ad-duly-ddab-dabe dab dh dab dh dab dub dah dab db dah deb dh dah dh dah dh dh dh dh dah dh dh hd ie Ltd 
DPA BB PPP PPP PPP PPP PPPOE LE EE OOS 
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-SBTTL UPDATPTCNT = UPDATE (MAX) PAGE TABLE COUNT 
FUNCTIONAL DESCRIPTION: 


wie ROUTINE CALCULA 
E TO SU Yerene 
S 


ce 
v 
om 
>~< 
2 


T AGE TABLES THAT 
CURRENTLY CREATED. 
GS FOR THE ENDS 

T DEALT WITH. 


“om 


INPUTS: 
R5 = PROCESS HEADER ADDRESS (P1 SPACE IF PROCESS) 
OUTPUTS: 


=_WORD CONTAINING EXTRA DYNAMIC WORKING SET LIST ENTRY COUNT 
Re, R3 PRESERVED 


PARA RAAAALAAAAASLALALALALE SELES ESE SEER REESE EERE EERE EEE EEE R ESS ECS eee a 


eeeeeteeeeeeeeee THE FOLLOWING CODE MAY BE PAGED eeeneennaneenranee 


COOCOCOOCSOCOOCOCOCSOOCO OOOO OOOOOOOOOOOOOO 
OGODOOCSCOCOCOOOOOOOOOWDWDDWODOWOOWOWOO INNS Ce 
BIE AN 9 ODN UE WN  O OONO UE  OOONOU EWN 


a at ot St 2 = = 2 = = = = = = = 8 SS 2 2 st 


0000 .PSECT YSEXEPAGED 
3 PARRA RAAAAALALALALALLAELELESESE SESE SESE SESE REECE EEE CECE SESE SESE SECAESE SEES 
UPDATPTCNT: 
50 oocc cS 07 OO EF EXTZV #0,#7,PHDSL_POLRASTL(R5S),RO :NO. OF ENTRIES TO FILL LAST POPT 
50 2c a5 50 (C3 SUBL3 RO. PHOSL_FREPTECNT ( RS) OR RO “NO. OF FREE PTE'S STARTIN NG 
4 ai” THE NEXT PAGE TABL 
50 50 F9 8F 78 4 ASHL  #-7,R0,R0 [TRUNCATED DIVIDE BY 1 * TiELDS. 
4 ;COUNT OF EMPTY PAGE TABLES 
02 18 4 BGEa 10$ ‘BRANCH IF SOME EMPTY PAGE TABLES 
504 4 CLR RO [NO EMPTY PAGE TABLES 
72 AS 00000000 ‘EF 50 A3 4 10$: SUBWS RO,SGNS$GL_PTPAGCNT, PHDSH. yeuem eat aen’ ;SET MAX PAGE TABLE COUNT 
00000000'EF 17 4 MMGSEXTRADYNWS OMPUTE AND RETURN EXTRA DYNAMIC WSLE COUNT 


REATE DELETE PAGE — 1g-SED-1984 91:49:08 YAX/VM Macro yO4-00 


«SBTTL DELPAG = DELETE A SINGLE PAGE 


+ 
FUNCTIONAL DESCRIPTION: 


rab 4b 4b tb 4h db db db db dh db db ab dh eb hh eb hh hl 


VVVIVIVTVTVTVTVTVVTVTVOVTVVUVVVVVTCC0C0C0C0€"8 


~~ novi tee DELETES THE PAGE SPECIFIED, CLEARING ITS PAGE TABLE 
E If THIS IS THE LAST PAGE OF THE RANGE TO BE DELETED OR IF 
IT RESULTS IN A LENGTH VIOLATION, THEN THE CONTRACT REGION LOGIC IS CALLED. 
CALLING SEQUENCE: 
BSBW MMGSDELPAG 
INPUT PARAMETERS: 
RO = ACCESS MODE TO CHECK AGAINST PAGE OWNER 
wns DELGBLDON SET IF ALREADY brig! shane A PURGE OF THE GLOBAL 
IN_THE Brecer tED OD ADDRESS R 
nncsy NOWAIT IPLO SET TO RETURN ss ABORT RATHER THAN WAITING 
/O COMPLETION AT IPL 0 
Re = SRT pOpness (LOW 9 BITS = 0) 
= 
R5 = PROCESS HEADER ADDRESS = P1 OR SYSTEM SPACE 
Re = ae) ~ 1 OF PAGES REMAINING TO BE DELETED INCLUDING THIS ONE 
= 


M4! IF GOING FORWARD IN ADDRESS SPAC 
-*x200 IF GOING BACKWARDS IN ADDRESS SPACE 
IPL = ASTLVL 


IMPLICIT INPUTS: 
NONE 


OUTPUT PARAMETERS: 


RO = STATUS CODE 
R2 PRESERVED 


IMPLICIT OUTPUTS: 
NONE 


COMPLETION CODES: 


SS$_NORMAL SUCCESSFUL RETURN 
SS$~PAGOWNVIO PAGE OWNER VIOLATION 


SIDE EFFECTS: 


Sete Se Ge Se Ge Se Ge Ge te Se Se Ge Se Ge Se Se Ge Ge Se Ge Ge Ge Ge Ge Ge Ge Ge Ge Se Ge Ge Se Ge Ge Se Ge Ge Ge Sse Se Ge Se Se Se Se Se Se Sets 
+ 


MAMA AIA UU UU UU UU 


PDQ ALAAA AAA AAA AAA AAO AO 
bm hh) hh) hh ~ ) ~ ) ~~) ~~) ~~) ~ hh hh he) 


R1,R3 = DESTROYED 
CAUTION = MAY WAIT AT IPL 0 


TEM SE 
G - DE 
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o-9OMWw-—w® 
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ODOOOOCOCOOOOOOCOOOOOOOOOOOOOO 
COOoQOOCOCOCOOOCOCOCOCOOOCOOOOOMMIIUNM 
OOO O009 090909 09 SII NIAAA AA AAA AAA A OO 


OV FAOOOAOAOWOI SS ONOO ONT NNN HAMHMNOCTIVTCSO 
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9A 009 
30 009 
BA A 
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OOA4 
OAS 
E8 O0A4 
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OAS 
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a 
D 
C6 0083 
DD § 
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41 
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RV 
LE 


PEPPERELL 


SA AAAAAAAAO 


aa ee ed et = = 2 = = So = = = SS 8 2 8 = SW = 8 SS a a 1 


AI AMAUI NII EER RRR EERE RRR RPP PEP PPP P PP PEPE 
2 4 4 AQOOOOSOOO00000 0000000000000 000000 00000000 INNS 


"SISEP=1984 03:49:40 ErsuSachsvsenepersman:1 "29° (39 


RRARAARAA AAA A EERE A AAA AAAAAAAAAA AERA AERA ERAA HERE eRe eee ee eee 
; eeeeeeererereeer THE FOLLOWING CODE MUST BE RESIDENT eeeeeeeeeeeeeeeee 
~PSECT SMMGCOD 


ARRAS ARLARARAASALA LASALLE ELAS ESE ESE REE ESE SESE SEES EE SSE Cee cece cae 


DELETE A PAGE MAPPED BY PFN 


BENMAPDEL: 
INVALID R2 LIDA TE THE TRANSLATION BUFFER 
CMPW © PCBSW_DIOLM(R4) ,PCBSW_ o1SENT CR 4) ;ANY DIRECT I/O FOR PROCESS? 
BLEQU 10$ N NO 1/0 COMPLETION TO WAIT FOR 
BRW DELPAGASTWAIT GO Ww. AIT FoR 1/0 TO COMPLETE 
10$:  BBCC #PTESV WINDOW. RO. ieemeanie SBR I F SHARED MEMORY GLOBAL PAGE 
CMPL RO-MMGSGL_ 31$. THE voaet SHARED BY BOTH CPU'S OF MP 
BLEQU DELPTE1 "YES = DON'T DECREMENT INHIBIT COUNT 
DECL § PHDSL_MPINHIBIT(RS) i REMOVE ONE REASON THAT PROCESS MUST 
cele E LOCKED ON PRIMARY PROCESSOR 
"MNEGL #1, RO : INDICATE DECREMENT OF PTWSLELCK ARRAY 
BSBW  MMGSMOVPTLOCK [ONE LESS REASON PT PAGE MUST BE LOCKED 
BRW DELPTE [OK TO DELETE PAGE NOW 
S DELETE PTE TO A SHARED MEMORY GLOBAL SECTION PAGE. 
SHMPAGDEL: 
PUSHR #*M<R1,R4,R6> :SAVE REGISTERS 
MOVZBL #1,R1 COUN NT TO DECREMENT PTE REFERENCE BY 
BSBW  MMGSF INDGSDPFN [FIND SHARED MEMORY GSD FOR THIS PFN 
POPR #*M<R1,R4,R6> TRESTORE REGISTERS 
: AT SOME TIME, A SEND MESSAGE TO THE ERROR LOGGER COULD BE ADDED HERE. 
. BLBS RO, DELPTE1 :BR ON GSD FOUND, GO DELETE PTE 
BUG. CHECK NOSHMGSD, FATAL SFATAL ERROR IF NOT ASSOCIATED WITH GS 
t PURGE WORK ING s T SCAN GOT A RESOURCE ERROR 
: O(SP) = SAVED R 
WSSCNWAIT: 
MOVL RB, RI ;RESOURCE TO WAIT FOR 
MOVL (SP)+ RB SRESTOR 
MOVPSL -(SP) ; RESOURCE WAIT ROUTINE NEEDS THIS 
ADDL #4, SP ORD 


7 JUNK 
PUSHL ACCESS MODE 
DSBINT riPLs SYNCH 
BRW DELPAGRESWAIT 


PAGE LOCKED IN WORKING SET 
BELPAGLOCKED: 
CMP 


R1,PHDSW_WSLOCK(R5) :1F PERMANENT PAGE, SUCCESSFUL NOP 
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SYSCREDEL = SYSTEM SERVICE CREATE & DELETE Nace 1 =SEB-1984 01:49:03 VAX/ViNS Macro V04-00 Page 34 
v04=0 DELPAG = DE A SINGLE PAGE ~SEP=1984 03:49: SYS.SRCISYSCREDEL.MAR; 1 (20) 
2 iF BLSSU ®BRDELPAGSUCCESS ;ALLOWING SWAPPER TO USE DELTVA 
50 6E 9A MOVZBL (SP),RO TRECOVER ACCESS MODE 
-_ pea aa AUR Ubud I Bt SHRP 
58 00090030 BF 00 MOVL &#<S $ _WASSET a16 ! ‘SET PARAMETER TO UNLOCK THE 
WSLSM eWSLOCK WSLSM_ PFNLOCK> ne jWORK! NG SET LIST ENT 
FF26" 30 BSBW MMGSLUKULKPAG SUNLOCK PAGE FROM THE WORKING SET 
0100 8F BA POPR #*M<RE> TRESTOR " 
0B 50 «£9 BLBC RO. BROELPAGRET ‘BRANCH IF ERROR 
otc 31 BRW DELAGAIN 'GO RESTART DELPAG FROM THE TOP 
; LENGTH VIOLATION FOR THIS VIRTUAL ADDRESS 
é 


ELPAGLENVIO: 
C Rb : OTHERWISE AKE RANGE COMPLETED 
BRW DELPAGLAST NTRACT tHe REGION IF POSSIBLE 
ERECK FOR test IN RANGE 


BPR EEE EEE EWAN AGRON St 
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RV 
LE 
5 1 
1 
A 1 
1 
1 
1 
7 1 
A 1 
F 1 
1 
4 15 
4 15 
4 15 
4 15 
4 15 
4 15 
a 
9 1535 BRDELPAGSUCCESS: 
O2FA 31 9 15 W DELPAGSUCCESS 
C 1537 BRDELPAGRET: 
O2FA 31 ¢ 13 BRW DELPAGRET 
F 1540 ; 
i 13 ; R1 = PAGE TYPE AND IS KNOWN NOT TO BE ZERO 
F 1843 ° 
F 1544 DELPAGNOTPROCES: 
F 15 ASSUME PFNSC_SYSTEM EQ 1 
wa ASSUME PENSC “PPGTBL EQ 4 :NEGATIVE FIELD VALUE 
51 07 F 15 DECL OR NEGA Au ve 
F615 1 15 BLEG BROELPAGSUCCESS THEN, SUCCESSFUL NOP 
1349 S ALLOWING SUAPPER TO USE DELTVA 
138 ; CHECK FOR A RESIDENT GLOBAL SECTION PAGE 
51 0000'DF40 00 155 MOVL a@W*PFNSAL BAK ROJ,R1 :GET BACKING STORE 
2 5116 é! 9 155 BC #PTE ESV TYP -DECGBLRDINPROG “MUST BE PAGE-FILE 
zz». Dd 155 CVTWL sISOLATE GLOBAL SECTION TABLE INDEX 
50 00000000°EF D0 01 Q 155 MOVL RNG. SYSPHD,R TADDRESS OF SYSTEM HEADER 
50 20 A0 CO 0107 155 ADDL = PHDS petancper cRO) . RO iGET SECTION TABLE BASE 
50 6041 DE 1 155 MOVAL (RO) RO ‘GET THE CORRECT SECTION TABLE ENTRY 
17 14 AO 9p ig 10F 5 BBC asECSY. V_R SIDENT. -SECSW_ FLAGS (ROD. DELGBLRDINPROG 
55 00000000'EF 09 116 138 MOVL  MMGSGL_ SYSPHD, RS sSYSTEM HEADER 
FE 0 30 1 6 Bey eRe SS TONE LESS REFERENCE 
50. (01 : 122 1 6 MNEGL ;UNLOCK INDICATOR 
FeDC 1 1565 BSBW ANGSROVPTLOCK TONE LESS REASON TO LOCK THE PAGE TABLE 
028 1 8 1368 BRW DELPTE +P INISH DELETING THE PAGE TABLE ENTRY 
128 1568 SELGBLRDINPROG: 
0B BA 0128 1 $3 POPR  #*M<RO,R1,R3> SROZACCESS MODE, RI=SAVED IPL 
1gD 1970 CLEAN OFF SAVED PSL INTO R3 
1 157 ENBINT R1 [BACK TO CALLER'S 
58 pp 01 1 ie PUSHL Rs [SAVE THIS REGISTE 
D4 01 157 CLRL. eR ‘SCANNING FOR GLOBAL PAGES 


Pae-n— 
si + “ 


13 
SYSCREDEL EM SE E CREATE & DELETE Bate 16-SEP-1984 249: AX/VMS Macro V04-00 Page 35 
JOnsOB0 - DE i A CENGKEPR GE gee 1382 84:43:98 YES. SRCISYSCREDEL.MAR; 1 . 38) 
FEC9' 30 BSBW $MMGSPURGWSSCN ;DELETE GLOBAL PAGES IN THE ADDRESS RANGE 
sFROM THE W WORKING SET LIST 
38 i Ist RB SCHECK FOR ERROR 
FF6D = 3] BRW WSSCNWAIT :GO0 WAIT FOR A RESOURCE 
58 BP DO 108: MOVL (SP)+,R SRESTORE RB 
: i FALL THROUGH TO DELPAG 
.ENABL LSB 
MMGSDELPAG:: 
7E OC MOVPSL =(SP) ;SAVE PSL 
SAVIPL ;PUSH CALLER'S IPL 
50 pp PUSHL RO sSAVE ACCESS MODE 
FEBS' 30 DELP1: BSBW MMGSPTEREF i REFERENCE PTE, RETURN SVAPTE 
sRETURNS AT IPL=SYNCH 
96 50 £9 BLBC  RO,DELPAGLENVIO {BRANCH IF LENGTH VIOLATION 
: R3 = SYSTEM VIRTUAL ADDRESS OF PAGE TABLE ENTRY 
51 63 009 : MOVL (R3),R1 :FETCH PAGE TABLE ENTRY 
9% «1 BEQL anDELPAGsuCcESS ‘BRANCH iF pALREADY DELETED 
50 of A MOVZBL (SP),R AC 
O2F 0 BSBW MAGSPAGETYPE + CHECK ACCESS RETURN PAGE TYPE 
90 50 €9 BLBC RO, BRDELPAGRET [BRANCH IF PAGE OWNER VIOLATION 
: RI 
3 R2 = VA, R3 = SVAPTE, IPL 
: O(SP) = ACCESS MODE, 4(SP) = SAVED IPL, 8(SP) = SAVED PSL 


eo 68 1% (6OOCOtt EXTZV #PTESY -PFLVB #PTESS_PGFLVB, (3) RO PEN. PGFLVB, GPTX, OR SECTION 
CASE  TYPE= Ri, DISPCIST=<- ISPATC H ON THE PTE TYPE 

D pach | TRANS (TION (OR DZRO) 
DELPA Fit, PACING. FILE 
DELGLOBAL,- :GLOBAL PAGE 
: DELSTX= SSECTION TABLE INDEX 


; FALL THROUGH THE CASE STATEMENT FOR VALID PAGE TABLE ENTRY 


BELVALID: 
ASSUME PIESY gt NDow LE an ESS- PGFLVB 
4550 15 €0 BBS a TESV WINDOW, BR IF PFNMAP-ED PAGE 
00000000°EF 50 01 CMPL MMGSGL_MAXMEM PFN IN SHARED MEMORY 
C 1A BGTRU N YES 60 ALTER ohn GSD REF CNT 
0000'DF40 «6003)—«CO0StséEEE’ EXTV #PFENSV_PAGTYP,#PFNSS onciti® :GEf PAGE TYPE 
1 aw*PFNSAB_TYPECR RO].RT 
ASSUME PFNSC NPROCESS EQ 
03 13 BEQL 
FF6B 31 BRW DELPAGNOTPROCES ;BRANCH IF NOT PROCESS PAGE 


108: 
; = TO SEE THAT PAGE IS NOT LOCKED IN THE WORKING SET 
PFN_REFERENCE = 


PRP POPPIN ININININS 9 9 OH QOOCOOOOCOCOOCOOOOOOO OO OWWOWOWOWOOWO INN 


LDDQLPPP_ PAPA PPPPAP PAPA DP PAPA PDP PPP PAD PIII PT 
SODA MNES WIN 9 OD NAME WIN 9 OD NA UNE WI | 0 OO NO UE WIR 0 OO NOU EW" OWOONOULS MoO 


NNNNN EN = © $9999 9 9 2 2 SS SS BS BHAA COW MMMMDD OO WS SS oe ONE 


<0:7> PAGE TYPE TO CASE Tae + TYP1) 


C 13 
SYSCREDEL = SYSTEM SERVICE CREATE & DELETE PAGE 16-SEP-1984 01:49: AX/VMS Macro V04-00 Pa 
batt DELPAG = DELETE A SINGLE PAGE mets 7: 8h: 3:93 YOYS  SRCISVSCREDEL MAR: 1 - (3) 
, MOVZWL cau" PENSAX WSLXCROJ,R1>,- s INDEX TO WORKING SET LIST ENTRY 
187 1 IMAGE=SYS_NONPAGED 
6541 30 D 16 4 BIT post sa LWSLOCK | WSLSM -PFNLOCK> (RS) [R1] ;LOCKED OR PERMANENT PAGE? 
01 pe B 193 16 : CMPW = @WAPFNSAW_REFCNTCROJ,#1 MUST WAIT IF REFERENCE afQunt 1S UP 
67 14 0199 16 BGTR 908 SINDICATING 1/0 IN PRO 
i 1A £0 0198 16 8 BBS #PTESV_MODIFY, (R3),4 40s BRANCH F PAGE hODiFien. 
16 9000" orf 07 FI 19F 1 BBC #PENSV HOD IFY,@W*PFNSAB_STATECRO),60$ ;BRANCH IF PAGE NOT MODIFIED 
51 0000'DF 09 ; 1A6 40 40$: ROTL 1=PTESV =TVED> av PPNSALS BAKCROJ.R1_;SECTION BACKING STORE? 
09 51 IE lar 18¢¢ BBS iy LocPTESy TYPO=PTESV_CHKPNT>>,R1,60$ ;1S IT MARKED CHECKPOINTED 
024 1B3 164 BRW DELPAG_WRTBAK sMUST WRITE THIS PAGE BACK 
FEBG 1 01B6 1644 508: BRW PEN NMAPBEL BR TO DELETE PFNMAP-ED PAGE 
FFO 1 0189 1645 578:  BRW DELPAGLOCKED :BR TO DELETE LOCKED PAGE 
1BC 1646 DELPAG_WRTDONE : 
51 0000'DF40 80 BF 88 18C 1647 60$: B1 CBS #PFNSM_MODIFY,@W*PFNSAB STATECROJ R1 ;FETCH ALL BUT MODIFY BIT 
0000'DF40 51 10 89 O01C4 1648 BISB3 #PFNSM=DELCON.R1, a” PFNSAB STATE RO] “SET DELCON, CLEAR MODIFY 
03 A384 BF «BA O(OICB «1649 BICB _ #<PTESM_VALID ! PTESM_M DIFY>a- 4,3(R3) :MAKE PTE INTO TRANSITION FO 
109 1650 INVALID R AND INVALIDATE THE TRANSLATION BUFFER 
52. DD O1D3 1651 PUSHL Re ” ‘SAVE VA 
0105 1838 MOVZWL POUR NBAC Ue WSLXCROJ,R1>,= :GET WORKING SET LIST INDEX 
01D) 1654 LONG_OPCODE=MOVL 
1D 1655 IMAGE=SYS NONPARED 
53 541 52 CD 01DB 1656 XORL3 aoe , ;HIGH VA BITS MUST AGREE 
53 53) «OF? BF O77 O10 1657 SHL  #-VA$S_BYTE.R3,R3 :SHIFT OUT THE ONES THAT MAY DIFFER 
15 12 O1€5 1658 BNEQ  WSLXVANOMAT SAND BRANCH IF HIGH BITS DISAGREE 
FE16" 30 O1E7 1659 BSBW § MMGSDELWSLEPPG [DELETE WORKING SET LIST ENTRY 
OIEA 1660 [FOR PRCESS PAGE 
OIEA 166¢ : IF THE PAGE WAS QUEUED FOR WRITING, THEN THE REFERENCE COUNT WILL BE UP 
O1EA 1664 ° DECREF GTR=80$ ZONE LESS REF WITH WSLE RELEASED 
FEO?’ 30 O16 1665 BSBW  MMGSRELPFN WILL RESULT. IN, pre CONTAINING ITS 
008D 31 oir 1967 BRW DELAGAIN1 [GO DELETE THE PTE 
oir 1889 : WORKING SET LIST ENTRY AND VIRTUAL ADDRESS DISAGREE 
1FC 1854 & WSLXVANOMAT: 
1F 1678 BUG_CHECK WSLXVANMAT, FATAL 
1674 + 1/0 IN PROGRESS ON THIS PAGE, MUST WAIT 
04 BA 1 76 bos: POPR #*M<R2> ;RESTORE SAVED 
29 «111 , BRB DELPAGIOWAIT ‘WAIT FOR 1/0 COMPLETION 
4 8 .DSABL LSB 
4 1 ? ; ALT FOR 1/0 TO COMPLETE OR RESOURCE TO BECOME AVAILABLE 
4 1 ¢ i ; i SP) = SAVED Access MODE 19 BE RESTORED TO RO 
4 1 ; (SP) : PSL AT ENTRY ad’ad DELP 
4 1684 : R2, as inet WERE ON ENTRY TO DELPAG 
4 5; R -*RéscURCE os bat FOR 
d 1687 BELPAGASTWAIT: | 


013 | 
SYSCREDEL = SYSTEM SERVICE CREATE & DELETE PAGE 16-SEP-19 149: AX/VMS Macro v04-00 Pa 7 
batt DELPAG = DELETE A SINGLE PAGE Breet aBs Bbidaige LARC VeS Macro, VOR re ey ~ dh 
OA €0 BBS gangs NOWAIT_IPLO,- ___ RETURN SS$_ABORT 
24 FC AD MMGSL_PAXACMODE (FPS, -DELPAGIOWALT 
51 9A MOVZBL #RSNS-ASTWAIT,R1 WAIT ON AST'S 
FDEF' Hi Beeue RAGSRESRCWA T SAVE. PTO WAIT FOR THe RESOURCE 
53 OC AE 001F0000 br CB BICL3 #PSLSM_IPL by 1e(SPD RS STHIS WILL BE IPL 0 WAIT | 
6 71 BRB DEC PAGTOUA AIT | 
BELPAGRESWAIT: 
52 bp PUSHL 2 ;SAVE VIRTUAL ADDRESS 
FDDF' 30 BSBW GSR SRCWAIT ‘SET UP TO WAIT FOR THE RESOURCE 
04 BA POPR i RESTORE SAVED VIRTUAL ADDRESS 
1 BA POPR ancr 'RO = SAVED ACCESS MODE 
6E FFI8 CF DF MOVAL wonnG DELPAG, (SP) :STORE PC TO RESTART AT 
FDD3" 31 BRW MMGSSVPCTX SAND EXIT TO SCHEDULER 
> RO = PAGE FRAME NUMBER 
HELPAGIOWAIT: 
53 08 AE 001F0000 BF cB BICL3 #PSLSM_IPL,8(SP) ,R3 sTHIS WILL BE IPL 0 WAIT 
E1 #MMGSV “NOWAIT_IPLO,= OK TO WAIT AT IPL O 
06 FC AD MMGSL_MAXACMOBE (FPS ,DELPAGIOWAIT2 
50 2c 3¢ MOVZWL #SS$_ABORT,RO 
O1A8 = 31 BRW DELPAGRET 


POIPIPOPIPONS 


SNA AAA AAA AAA AAA IMI I BB BE BE NIINIIOPOPOPOPONNONONINY = @ BOO 
PAO DW ON MS BD WOOP PNIPYING MOAXA LENIN ™ BS OO S$ SM DOOCUVGCT CTS PVW—MOOO PMO OO LS 


bELPAGIOWAIT2: 
0000'DF40 40 SF 88 BISB. #PFNSM_RPTEVT,aW*PFNSAB -TYPECRO} :WAKE THIS PROCESS. ON 1/0 COMPLETE 


Mtn? CLEAR THIS 


i a a a a a a nd dd a 
NSN NSN NNN SSNS NSN SSS SSSI POPPA AOSOOAS MK 
PWWIAIAAHAIAIINIGIPRIPINININIPINININ 2 2 OS MOO OCGOOOCOCOCOOOOOOOOOOOM@CQ -—is: 
PAP 2 OOD NO NEW 2 9 OD NIA NE WWIN  O OO NO UE WI 2 O ODNAUM EW OUODNAUESWWN—O0OO Mo 
v 
ce 
n 
= 
_- 


SOOOCOOOCOCOOOCOOCOO OOOO OOSOOOOOOSCOSOOCOOOCOOCOOOOOO OOOO O OOOO OOOOOOO 


52 bp R2 ;SAVE VIRTUAL ADDRESS 
50 O000'CF 7€ MOVAG  W*SCHSGQ_PFWO,RO ;PAGE FAULT WAIT QUEUE HEAD 
FDAE' 30 - BSBW  MMGSPGFLTWAIT :SET UP TO WAIT ON PAGE FAULT WAIT QUEUE 
DELPAGIOWAIT4: 
04 BA POPR  #*M<R2> : RESTORE SAVED VIRTUAL ADDRESS 
3 DD PUSHL R3 WAIT AT SPECIFIED IPL - NOTE T 
AST'S MAY OCCUR AT ANY TIME IF IPL O 
00000000'EF 16 JSB MMGSSVPCTX :AND CALL SCHEDULER 
SETIPL #IPL$_ASTDEL RAISE BACK TO ASTDEL 
FEE6 «31 BRW DELP1 :TRY TO DELETE THE PAGE AGAIN 
bELPAGIOWAITS: 
53 08 AE 00 MOVL 8(SP) R3 {WAIT AT IPL OF CALLER 
do 1 BRB DELPAGIOWAIT2 :GO WAIT 
; TRANSITION PAGE ON FREE, MODIFIED OR BAD PAGE LIST 
ae apa 
52 DD PUSHL R ;SAVE VA 
52 D MOVL R1,R2 :GET LIST ID 
17 1 BeaL 208 : BRANCH IF FREE LIST 
0D é f BLBC ~=—s-_-«R2, 108 : BRAN Hie BAD PAGE LIST 
51  0000'DF40 ¢ ROTL #<41~PTESV_TYPO>,@W*PFNSAL BAKER J1,R1_;TYPO BIT TO SIGN BIT 
4 1 4 BGEQ 10 ;BRANCH IF NOT SECTION PAGE (TYPO=0) 
4 BA 4 POPR = #*M<R2> :RECOVER SAVED VA | 
B 11 4 BRB DELFAULT AND FAULT THE SECTION PAGE 
0000'DF40 80 BF oA 44 10$ BiCB #PFNSM_MODIFY,@w*PFNSAB_STATECRO) ;OTHERWISE SKIP THE WRITE 
| 
| 
| 
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ee 


REA 

SIN =SEP=1984 03:49:4 SYS.SRCISYSCREDEL .MAR; 1 

vheal m was MMGSDELPFNLST ;REMOVE PAGE FROM LIST AND DELETE CONTENTS 
RECOVER SAVED VA 


c pale TE s AY E Eade GE "9 SEP-1984 oi: 249: 05 aves Macro V04-00 Page 3p 
20 
DE 
POPR #*M<R2> 

BRB DELAGAIN 


: THIS 1S A PAGE IN TRANSIT 10N OR A DEMAND ZERO PAGE 
; RO = PFN, R2 = VA, R3 = SVAPTE 


BELTRANS: 

TSTL = RO :ZERO PFN INDICATES DEMAND ZERO PAGE 

BEQL § BRBINCPGFLCNT ‘BRANCH IF IT IS 

ASSUME PENSC_EREPAGL LST £0 0 

ASSUME PFNSC"MFYPAGLST EQ 

ASSUME PFNSC-BADPAGLST EQ é 

ASSUME PENSCREL PEND EQ 

ASSUME PENSC-RDERR Te ae | 

ASSUME PFNSC_WRTINPROG EQ 7-3 

ASSUME PFNSC"RDINPROG £0 6 1-2 

ASSUME PFNSC-ACTIVE 0 | 

EXTV #PENSV_LOC, #PFNSS Loc - ;GET PAGE'S LOCATION 

heal ay"PFNSAB_ STATELROJ,R1 
DELPAGIOWAITS, - :-3 = 5 = WRITE IN PROGRESS 

DELF - i-2 = 6 = READ IN PROGRESS 
DEL VALID - t-1 = 7 = ACTIVE 
_OR_FRELST,- ‘FREE PAGE LIST 
Y"OR-FRELST,= SMODIFIED PAGE LIST 
Y-OR-FRELST- ‘BAD PAGE LIST 

>, TYPE=B,LIMIT=#-3 


DELFAULT: 
ENBINT 4(SP) OTHERWISE RESTORE IPL 


$ FAULT THE PAGE OUT OF THE TRANSITION STATE 


TSTB (R2) sREFERENCE THE PAGE 
DELAGAIN: 

POPR #*M<RO> RESTORE RO = ACCESS MODE 

ENBINT ;POP AND RESTORE SAVED IPL 


ADDL 4#4,SP 

BRW MMGSDELPAG 
: THIS IS A PAGE FILE PTE 
; RO = PAGE Fi ILE VBN 
BELPAGFIL: 

TS R NULL PAGE FILE VBN? 
BEQL BRBINCPGELCNT i BRANCH IF YES 

MOVZBL PHD$B PAGF IL (RS) R3 [PAGE FILE INDEX IN R1 

BSBW WNGSDALC [DEALLOCATE THE PAGING 

POPR #*M< RoR SS” TRESTORE RO = VA, R3 = 
BRBINCPGFLCNT: 

BRW INCPGFLCNT 3GO0 DELETE THE PTE 


: THIS IS A GLOBAL PTE 


FF SAV 
:RESTART THE ROUTINE FROM THE TOP 


=O OO NIA ANEW 9 OD NIA EAI 9S OO NAME WIN 0 OD NIA UE WI OOO NOU EWI" OWONOU MO 
~ 
~< 
1 
~~" 
> DwwD- 


DONNA NNN SNS NSN NNN NNN SSNS SNS SSNS m= 
SOOOOOO OO OO 0009 090909 09 09 09 09 08 SII NS NNN SNA PAA AAA AAA IIIT 


0) 


SY 
Tal 


Scag 


51 Q000'DF40 78800000 &F 


50 «651—O18 98 
25) It 

ee 1 1A 

OA 51 16 

7 

F6 


03 0 
51 0000'DF40 


06 
51 FD 8F 
48 


51 


uw 
a 
i=) 
So 
i=] 
o 
Ss 
DAUR O SS FWPOLMO 


55 00000000' 


~ 


B4 6E 09 
FDD7 
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AWANAI AAI NWA AAAI AAI AIA NWA 


DAWA BB PAA AARON 


F 13 
E CREATE & eck ETE PAGE 


"SSEP=198¢ Ob:c0:00 Esvsvsachsvscrepe.man:1 "29 (30) 


A SINGLE 
; RO = GLOBAL PAGE TABLE INDEX 
BELGLOBAL: 
-ENABL LSB 
BICL3 #*C<PTESM VALID ! = ;VALID BIT 
PTESM_TYPT | PTESM_TYPO ! - jPAGE vee BITS 
PTESM-PGFLVB>,@W°MMGSGL_GPTBASELROJ,R1 ;ETC, FROM MASTER PTE 
EXTZV #PTESO_PFN,#PTESS_PFN,RT,RO ;PFN FROM VALID OR TRANSITION PTE 
BEQL 128 :PFN OF 0 SHOULD ONLY BE DZERO 
BBS #PTESV_VALID,R1, 208 ‘BRANCH IF MASTER PTE IS VALID 
BBS #PTESV-TYP1,R1,$0$ :BRANCH IF NOT TRANSITION PAGE 
BBC #PTESV-TYPO.R1.15$ RANCH IF TRANSITION PTE 
10$: BUG_CHECK IVGBCTYP,FATAL SINVALID GLOBAL MASTER PTE TYPE 
128: TSTL = R1 :MAKE SURE IT IS DZERO 
BEQL 70% :GO DELETE IT 
BRB 10$ 
} TRANSITION PAGE TABLE ENTRY 
15S: EXTV. —_—- #PENSV_LOC, #PENSS_LOC,- ;IF PAGE IS READ IN PROGRESS 
aw*PFNSAB_STATECROJ,R1 ;READ ERROR, OR ACTIVE BUT NOT VALID 
i THEN MUST SEE IF THERE IS A WSLE 
BGEQ 208 ‘BRANCH IF ON PEN LIST OR RELPEND 
CMPB «ss #<PFNSC_WRTINPROG ! <<-138PENSS LOC>>,R1 ; IF NOT WRITE IN PROGRESS 
BNEQ 40% ;THEN READ IN “PROG, READ ERR, ACTIV 
; : SEE IF 1/0 I$ IN PROGRESS ON THIS PAGE 
50s: CLRL sR ;COMPARE REFCNT AGAINST 0 
PFN_REFERENCE 
TSTW <aw*PFNSAx SHRENTLROI>, - sI1F SHRCNT IS 0 
CONG OPCODE=T 
fo IMAGE=SYS_ NONPARED 
INCL = RI SOTHERWISE COMPARE REFCNT AGAINST 1 
22$ CMPW  @W°PFNSAW_REFCNTCROJ,R1 31/0 IN PROGRESS ON THIS PAGE? 
BLEQ ‘BRANCH IF NOT 
CHPY PCBSW_DIOLM(R4) ,PCBSW =DIDENT RG) “ANY DIRECT 1/0°S FOR THIS PROCESS? 
68: MOVL av" PENSAL reba RO} R1 i BACKING STORE ADDRESS 
0$: BBC arrest ANCH IF NOT SECTION TABLE 
BBS #PTESV- =DzRO A V_DELFAULTI FAULT IF DEMAN 
BBC apr sv5¢ ;BRANCH IF NOT COPY on REFERENCE SECTION 
MOVL PCB Rr aft. :GET JIB ADDR 
T*. ae BSc “is#e) as [ONE LESS PAGE FILE PAGE CHARGED 
35$ CVTWL SISOLATE GLOBAL SECTION TABLE INDEX 
PUSHR #*A<R TSAVE THESE 
MOVAL aL "anctG SYSPHD. RS SADDRESS OF SYSTEM HEADER 
BSBW RnGED cset REF :COUNT ONE LESS SECTION REFERENCE 
POPR ReR > TRESTORE SAVED REGISTERS 
BRW FINISH DELETING THE PAGE TABLE ENTRY 
40$ BBSS PaCS DELGBLDON, (SP),20$ ;1F ALREADY DELETED THESE GLOBA 
sWSLE'S, THEN DON'T DO IT AGAIN 
BRW DELGBLRDINPROG :GO DO fHE DELGBL SCAN 


eeessessssesrees sett tC LLL LT 


FNDGBLSECTBL: 
PUSHR 


6 13 
SYSCREDEL = SYSTEM SERVICE CREATE & DELETE PAGE 16-SEP-1984 01:49:03 VAX/VMS Macro V04-00 P 40 
batt DELPAG = DELETE A SINGLE PAGE Brea 8Re Bbicesce Farereac se eceat bei cans: 28? (38, 
FFS3) 31 59 BRW DELFAULT ;BR TO FAULT PAGE 
i + THIS GLOBAL PAGE HAS 1/0 OUTSTANDING AND THIS PROCESS HAS SOME 
; DIRECT 1/0°S IN PROGRESS. JUST IN CASE HE IS RESPONSIBLE FOR THE 
64 ; 1/0 REQUEST ON THIS PAGE, MAKE HIM WAIT FOR ALL HIS DIRECT 1/0 
65 + REQUESTS TO COMPLETE. 
51 3° 33 50s: MOVZWL #RSNS_ASTWAIT,R1 :WAIT FOR AN AST TO OCCUR 
FEBF 1 $3 BRW DELPAGRESWAIT 
; HANDLE THE POSSIBILITY OF A GLOBAL SECTION WITH PAGE FILE BACKING STORE 
73 0S: 
00 51 O02 16 €D 74 CMPZV  #PTESV_TYPO,#2,R1,40 | ;CHECK FOR PAGE FILE 
87 1 0 75 BNEQ 
08 1 A: 70$: BSB FNDGBLSECTBL :FIND SECTION REF COUNT & DECREMENT IT 
11 ; , BRB DELPTE 
3 hi .DSABL LSB 
1 : FIND THE GLOBAL SECTION TABLE FOR A GIVEN GPTX 

0 g + DECREMENT THE REFERENCE COUNT 

0 4 
: 

Bs 
9 
90 
31 
38 
94 


NPM OO OOW TM BA ES OWIO WOOO GODWoe ful 9990909 F&F NNN 
+O Cd 0d G9 Co CD G9 Cd Od C9 CD Cd Cd Cd Cd CD CD GD CD GD CD CD CD Cd CD C9 CD. C9. GD 0D 0D 00 0D CD CO CB CD CD CU CD ODCD 


o> DS FOO OOO OW DEDEDE DEDEDE DPD AP DITTO 


OOE4 8F 6B #*M<R2,R5,R6,R7> 
55 90000000" FF DE MOVAL @MMGSGL_SYSPHD,R5 SADDRESS OF SYSTEM HEADER 
56 63) —CO16)S—COitsé#éSF EXTZV #PTESV_PGFLVB #P tess PGFLVB,(R3),R6 ;GET THE GPT INDEX 
50 55 20A5 (1 ADDL3 PHDSL_PSTBASOFF(RS),R5S,RO :BASE OF SECTION TABLE 
51 00000000'EF if OVI MMGSGC_GBLSECFND Ri :D0_WE HAVE A PREVIOUS MATCH TO START WITH 
51 26 05 3 : 5$: CVTWL = PHDSW PSTLAST(R5) RI S INDEX TO LAST SECTION 
52 6041 OD 10$ MOVAL (RO)CR1),R2 tSECTION ADDRESS 
18 Ag p ist SECSL_REFCNT(R2) SIGNORE IF NEGATIVE REF COUNT 
6 00 EF 95 EXTZV #SECS$V_VPX,#SEC$S_VPX,- 
57 OBA %6 SECSL _OPXPFC(R ),R7 :BASE FOR THIS SECTION 
7 56 01 9 CMPL = RGR 
0& 19 9 BLSS ;WRONG ONE 
57 57'¢ A CO 99 ADDL2 SECSL _PAGCNT(R2) .R7 
g 1 901 BGEG 2 ;WRONG ONE 
FC36" 3 2 : BSBM MMGSDECSECREF :GO DEC THE REF COUNT 
00000000" EF 03 g 904 20S: TSTL § MMGSGL_GBLSECFND :1S THIS THE FIRST LOOP 
8 905 BEQL = 25 NO 
00000000" EF p4 4 9 6 CLRL MMGSGL_GBLSECFND 
51 c C ; 25$ ADDL2 WSECSC_LENGTH@-2,R1 ;NEXT SECTION 
00E4 Sr BA 1 1910 30$:  POPR #*M<R2,R5,R6,R7> 
5 5 4 RSB 
913 :; THIS IS A PROCESS SECTION PAGE 
318 + RO = SECTION INDEX AND FLAGS 


PROPIPIPII) 2 OOO FFF FF Fh HMMM MMMM mMmMmmmmmmmm OOOO I MOOmON 


DOV B HFM FOI MM OOOOOM SH OD OOOO OAAS SVC COCOOS OOS SPA 
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H 1 
RVICE CREATE & DELETE Bate 16-SEP-1984 01:49: AX/VMS Macro V04-00 Page 41 SY 
cue A SINGLE PAGE ety 7 bh: 3:93 YeyS. SRCISYSCREDEL.MAR; 1 9° (30) vo 
1 1g DELSTX: sPROCESS SECTION. PAGE 
191 BBS #P TES _DZRO,RO,DELFAULT1’ ;FAULT IF DEMAND ZERO 
1 18 CVTWL =soRO, : SECTION INDEX 
191 PUSHL R *SAVE VA 
1 p BSBW MMGSDECSECREF ;DECREASE SECTION REFERENCE COUNT 
19 POPR #*M<R2> ECOVER SAVED VA 
19 : #PTESV_CRF,RO,DELPTE | :BRANCH IF NOT CRF SECTION 
13 INCPGFLCNT 
1 é PCBSL_JIB(R4) RO :GET JIB ADDRESS 
19 INCL  JIBSLIPGFLCNT(RO) [ONE LESS PAGE FILE PAGE CHARGED 
19 ; ; FALL THROUGH TO DcLPTE 
19 8 i DELPTE: 
1930 CLRL = (R3) ;JUST ZERO THE PTE 
1931 TSTL 6 ‘LAST PAGE OF THE RANGE? 
19 ‘ BEQL § DELPAGLAST [YES, GO CONTRACT THE REGION 
1934 DELPAGSUCCESS: 
19 5 MOVZWL #SS$_NORMAL,RO :SUCCESS RETURN 
19 $3 O(SP) = ACCESS MODE, 4(SP) = IPL TO RESTORE, 8(SP) = SAVED PSL 
19 § BELPAGRET: 
1940 ENBINT 4 (SP) ;RESTORE SAVED IPL 
1941 ADDL #12,SP TADJUST THE STACK 
1306 AND RETURN 
1946 t LAST PAGE OF THE DELETE RANGE 
1946 BELPAGLAST 
194 SETIPL #IPL$_ASTDEL sNO NEED FOR SYNCH HERE 
N N L 
194 JSB MMGSCONTRACT SCONTRACT REGION IF POssiB E 
194 BRB DELPAGSUCCESS SAND EXIT SUCCESSFUL 
1984 : MUST WRITE SECTION PAGE BACK TO DISK BEFORE DELETE 
1936 + O(SP) = SAVED ACCESS 
1993 : B(SP) = SAVED PSL AT ENTRY TO DELPAG 
1985 BELPAG -WRTBAK: 
1956 PUSHR #*M<RO,R2,R3> SAVE SOME REGISTERS 
19 TeiW PCBSu. BIOENT CRS) SEXHAUSTED DIRECT 1/0 QUOTA? 
195 BEQL $ SBRANCH IF YES, WAIT FOk SOME TO COMPLETE 
195 REMQUE a@W*IOCSGL_IRPFL,R2 SGET AN I/O PACKET FROM THE SIDE LIST 
196 BVC 208 SBRANCH IF GOT ONE 
1961 MOVZBL #IRPSC_LENGTH,R1 [SIZE OF PACKET TO ALLOCATE 
1966 BSBW EXESALONONPAGED SALLOCATE IT FROM NON-PAGED POOL 
196 MOVZBL #RSNS_NPDYNMEM,R1 SIN ANTICIPATION OF ALLOCATION FAILURE 
1964 BLBC — RO, 608 SBRANCH IF MUST WAIT FOR A PACKET 
1965 208 MOVL :1/0 PACKET ADDRESS TO 
19 6 POPR #*M<RO,R2,R3> =PFN, R2=VA, R3=SVAPTE 
19 MOVZBW #IRPSC_LENGTH, IRPSW_ sizeind) sSET SIZE FIELD 
19 8 :TYPE FIELD FILLED IN BY WRTPGSBAK 
19 MOVB IRP$B_RMOD(R1) SREQUESTING MODE FROM ACCESS MODE PARAM 
19 : MOVL Ati SEGVBN(R1) [SAVE STARTING VA FOR SCAN 
197 PUSHR n3ch »R3> SPRESERVE THESE ACROSS THE CALL 
1972 MOVL Su Pr RSAC’ *BAKCROJ, R2 :BACKING STORE ADDRESS IN R 


SYSCREDEL 
v04-000 


3 


ooooo 


FRRR RR RRR RRP 
PEEL R ELE PW 
ALES SS oom PO 


E cR ATE t. DELETE bate 16=SEP=1984 01:49: AX/VMS Macro v04-00 Page 4 $Y 
A SINGLE AGE - eats vi 8}: 13:93 YOYS SRCISYSCREDEL- MAR; 1 9° (36) vo 
BSBW WIGSURTPGSBAK ¢ ;WRITE A CLUSTER OF PA GES BACK 
POPR sRESTORE SAVED REGISTE 
INSV — #PENSC sunt INbnog #PFNSV_LOC,#PFNSS_LOC,- 
aw*PFNSA RO]  “;FORCE THIS PAGE TO WRITE IN PROGRESS 
BRW DELPAG rURTDONE 


DIRECT I/0 QUOTA EXCEEDED, MUST WAIT FOR A DIRECT I/O TO COMPLETE 
hos: MOVZBL #RSNS_ASTWAIT,R1 sWAIT FOR AN AST TO OCCUR 
: UNABLE TO WRITE SECTION PAGE BACK, MUST WAIT FOR RESOURCE IN R1 


POPR #*M<RO,R2,R3> sRO=PFN, R2=VA, R3=SVAPTE 


SERVIC 
DELETE 
1973 
- 
197 

13°8 
197 

1358 3 » 
197 

1980 
He 
He 
UB i 
1986 BRW DELPAGRESWAIT :G0 WAIT FOR THE RESOURCE 


SYSCREDEL = SYSTEM SERVICE CREATE & DELE TE bbe -SEP-1 :49:03 VAX/VMS Macro v04-00 Page 43 
v04=0 CONTRACT = ADJUST THE LENGTH OF THE Spec | -SEP=1 1382 8}: 149: 3 YeYS. SRCISYSCREDEL MAR; 1 9 031) 
44 1388 ~SBTTL CONTRACT = ADJUST THE LENGTH OF THE SPECIFIED REGION 
449 1 : 
a4 1981 + INPUTS: 
44 1398 : R2 = VIRTUAL ADDRESS (USED ONLY TO SPECIFY PO/P1 SPACE) 
449 1994: R4 = PROCESS CONTROL BLOCK ADDRESS 
449 1995 : R5 = PROCESS HEADER ADDRESS (P1 SPACE REQUIRED) 
rr 1336 3 IPL = ASTDEL 
449 1998 : OUTPUTS: 
ret 0; R2 PRESERVED 
229 5002 | 
449 § : PARBRAASALALALALELLALLALEALALSESALAESALELSASASEE LASSE EEE C LEASE CEES EC ECE LEE 
eh 3 : eeateeereeerenee THE FOLLOWING CODE MAY BE PAGED seeeeneeereeereee 
0000 36D 009 : .PSECT YSEXEPAGED 
a5 009 : PARRARASLALALALAALALLLALALE ESE SESE SESE SESE TE SEE EECCA REEELELLALLASALASLES SY 
D 201 
056D ot AMGSCONTRACT: 
52 pp 56D 1 PUSHL R SAVE VIRTUAL ADDRESS 
FABE’ 30 O056F or MMGSDALCSTXSCN SSEE IF SECTIONS TO DEALLOCATE 
04 BA 0572 2014 POPR #*M<R2> : RESTORE VIRTUAL ADDR 
50 01 CE 0574 2015 MNEGL #1,RO sINITIAL COUNT OF PAGES TO REDUCE THE REGION 
1452 1€ €0 0577 O16 BBS #VASV_P1,R2,40$ ‘BRANCH IF P1 SPACE 
378 O18 : PO SPACE 
09 €& 0578 0° EXTV #VASV_VPN, #VASS_VPN+1,- ;GET VIRTUAL PAGE NUMB 
7 38 AS 57 1 PHDSL~FREPOVA(RS) ,R3 :0F FIRST FREE PAGE IN in Bo SPACE 
53 000000 ove co 0581 : ADDL §SGNSGC_PHDLWCNT, its AND FORM PAGE TABLE 
0 bd 0588 20 PUSHL RO t=1 FOR GOING BACKWARDS THROUGH PTE'S 
51 09 DB O58A 2024 MFPR  #PRS$_POLR,R1 [NUMBER OF PAGES IN PO SPACE 
21.11 38D 5 BRB 70$ [START SCAN OF ZERO PTE 
sar ; : P1 SPACE 
16 09 €E€ sar § dos: EXTV aVASV _VPN siVass vPNst, = ;VIRTUAL PAGE NO 
53 00000000'¢7 co 298 ? ADDL §§$ as PUVACRS? RS :OF FIRST FREE PAGE IN P1 SPACE 
1 Dp 29¢ PUSH rh $+ ary FOR GOING FORWARD THROUGH PTE'S 
51 00200000 8F 00D4 ¢3 ‘ 39 SUBL3 PHDSL_P1LR(R5),#1@21,R1 :NO. OF PAGES IN P1 SP 
6 11 3A 4 BRB 70$ :START SCANNING FOR ZERO PTE'S 
SAA ‘ : O(SP) = +1 IF GOING FORWARD IN PTE'S, { (P1 SPACE 
AA ; = -1 IF GOING BACKWARDS iN PTE'S (P SPACE) 
AA : : RO = -1 WITH LOOP ENTERED AT 70$ 
AA ; RI = MAX NUMBER OF PAGE TABLE ENTRIES TO SCAN (POSSIBLY 0) 
AA 49; R + R3 = PTE INDEX FOR THE FIRST NON-EXISTING PAGE IN THE REGION 
6C B443 D AA 46 bos: TSTL gPCBSL_PHD(R4)(R3] ;DELETED PAGE TABLE ENTRY? 
0? «1 Ar 4 BNE 0$ >BRANC T 
53 6€ C B 44 70$: ADDL (SP),R3 [NEXT PAGE TABLE INDEX 
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SYSCREDEL = SYSTEM SERVICE CREATE & DELETE PAGE 16-SEP-1984 01:49:03 VAX/VMS Macro V04-00 4 sy 
vOns0B0 CONTRACT = ST THE LENGTH OF THE SPEC eats 7 94:73:93 EeYS. SRCISY SCREDEL MAR: 1 step (21) v0 
RO = NUMBER OF PAGES TO CONTRACT THE REGION BY, POSSIBLY 0 
5 BOS: ADDL RO. PHDSL _FREPTECNT (RS) ;THAT MANY MORE FREE PAGE TABLE ENTRIES 
0 ROTL #9.RO,R iNO. OF BYTES TO CONTRACT REGION BY 
TSTL © (SP)4 ‘CLEAN OFF PTE SCAN DIRECTION 


BGTR 90$ ;BRANCH IF P1 SPA 


0 POLRASTL(RS) | ;ADJUST NO. OF PAGES 
1 SUBL sR * PHDSL FREPOVA(RS) SADJUST FIRST FREE Po SPACE VIRT ADR 
B BL Ss 120$ ZERROR Hi NOT STIL 
LDPOLR PHDS$L_POLRASTL(RS) OAD HARDWARE P LACE ST ENETH REGISTER 
3 i WTPR att  POLRASTL (RS). SA HPRS. POLR 


; Pl SPACE 


$0$: ADDL RO, PHDSL_PILR(RS) SUPDATE P1 LENGTH 
ADDL = R1. PHDSL~FREP1VA(RS) i AND ones FREE P1 VIRT ADR 
BLSS $ 3ERR R IF NOT STILL P1 SPACE 
LDPILR PHDSL_PILR(RS) iu SPDATE HARDWARE P71 LENGTH REGISTER 
TPR ~ PHDSL “PILR(RS), s* ‘#PRS_PILR 
100$: BsBw UPDATPTCNT UPDATE bax PAGE TABLE COUNT 


: 
5 
5 
! 
‘ SUBL RO, PHDSL 
: 
? 
; 
§ 
5 
; 
’ 


: FREE PO/P1 VIRTUAL ADDRESS IS FOULED UP 
§ 120$: BUG_CHECK CONTRACT, FATAL ;BAD FREPOVA OR FREP1VA 


T 

A 
F350 «51 OF 2 
kB BG 
Sf 
“Es PB 
09 oocc ¢ DA 
1 11 

0 

Q 
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OOODODOMOOM DS MIMI O CO’ ANI NINN 


Adeeb Ab db db db db bob dh dh dich db db dh dab dab db hb hb Ab hb db db hb db Ab de AA 


AOBLSS R1,R0,60$ sTEST NEXT PTE 


RARER A EATER AREER E RAE E REAR AAR AAA AAA AARAEAAAAERAE RARER A ATE 
eeeeeeeeeeeneree THE FOLLOWING CODE MUST BE RESIDENT *eeeeneaeraneneee 
~-PSECT SMMGCOD 


° 
: LARRRARARAARASARARAAAAAAAALALELELE EERE SEE EERE REE R ESSERE RE RR EEE ERR REESE SD 


0000 
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SYSCREDEL = SYSTEM SERVICE CREATE & DELETE b AGE 16-SEP-19 70 AX/VMS Macro v04-00 Page 45 
batt PAGETYPE = CALCULATE PAGE TYPE g- ae ts 84:28 93 Yeys. SRCIS SCREDEL MAR: 1 . (22) 
. 4 ~SBTTL PAGETYPE = CALCULATE PAGE TYPE 
E 77; 
E , 3; INPUTS: 
3 RO = ACCESS MODE FOR PAGE OWNER CHECK 
H Ri = PAGE TABLE ENTRY CONTENTS (NOT 0) 
3; OUTPUTS: 
3 RO = STATUS CODE 
3 S$_NORMAL IF SUCCESSFUL 
3 SS$_PAGOWNVIO IF CAN'T OPERATE ON THIS PAGE 
3 R1 = PAGE TYPE CODE IN LOW BYTE 
3 = TRANSITION 
83 3 1 = PAGE FILE 
91 ; § = GLOBAL 
092 ; = SECTION INDEX 
0 093 ; 4 = VALID 
0 094 ; 
0 95; 
0 96 ; 
0 97 ; 
0 3 
0 $ 
o 
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wn 
—s 
wn" 
oO 
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La oO 
Ss SES 
OoOooooooooo°o°oo 
PPR RR RR RRR RRR 
GOOD AAPA AOAO 
AAMMMMOOO = 
PIPIPIPDPIPIPIDIMIDPIPIPIPINIPIPINIPIPIPIPIPIPIPIPIPIPUIDIPU/PIPIPIPIPIPIPIPIPIPIPIPIPIPIPUPIPOPIPIPUNUPIPD OO” 


Die ti tt, te teh, te tah tee he UA Ab AS AS AD AL AL AD AD AL AL AL AL AL AL AL AL AL AL ALTA, 


MMGSPAGETYPE:: 
50. = («51 02 17 #2ED CMPZV) «= #PTESV_OWN, #PTESS_OWN,R1 -RO ;PAGE OWNER OK? 
19 #19 8 BLSS 0$ RANCH IF NO 
5 01 3¢ MOVZWL #SS$_NORMAL ,RO : SUCCESSFUL COMPLETION 
04 51 | ae BBC or Tesy VALID, R1,10$ ;BRANCH IF PAGE NOT VALID 
5 04 0 noe vals ;CODE FOR VALID PAGE 
51 71 oe Mw 108: EXTV #PTESV_TYPO,#<PTESV_TYP1+1-PTESV_TYPO>,R1,R1 


LOW BIT = TYPO, SIGN BIT = TYP? 
ROTL #1,R1, Rt :BIT 0 = TYP gIT 1 = TYPO 
BICB «= #*C< 35, R [CLEAR REST OF THE BYT 
[AND RETURN THE pice TYPE 
: PAGE OWNER VIOLATION 
bos: MOV ZWL #SS$_PAGOWNVIO,RO :PAGE OWNER VIOLATION 
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RorRoRoNoNOfoNy = MODOC OOOO00005 
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Symbol table 


ee PFN 

yeh ad 

BRBINCPGFLCNT 
RDELPAGRET 


BUGS _NOSHMG 
BUGS “WSLXVANMAT 
CRECOM_DONE 
CRECOM_INIT 
CTLSGL-IPAGEFL 
CTLSGL~ 
CTLSGL-VIRTPEAK 
DELAGAIN 
DELAGAIN1 
DELCOM 

DELETEF IRST 
DELFA 


DELFAULT1 
DEL GBLRDINPROG 
DEL AL 


DEL 
DELPAGSUCCESS 
DELPAG_WRTBAK 
DELPAG-WRTDONE 
DELPTE 
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MMGSWRTPGSBAR 
OP$_MOVL 


oc mm 


ROL NS fF OwWOnocw 


eeeneene 
aeeeeene 
eeenenee 
00000141 
eeeeeeee 
aeeeeeee 
00000000 
eeeeeeee 
000000DD 
eeeneene 
eeeneene 
aeeeeeer 
aeeeeene 
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aeeeeree 
0000297 
00001 DF 
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“SEP- 749: X/VMS Macro V04-00 Page 47 
SYSCREDEL ~ SYSTEM SERVICE CREATE © DELETE PAGE 197 SFE = 1986 OS:69500 Leys SRCISYSCREDEL AAR; 1 (22) 
Symbol table 
= QOTF 
ors tov = gonngns renin IP 
OPS_TSTL = PTES “EW s 
ore lee 2 i PTESC-KOWN : 
eee : 9 PTESC KW : 
Sct tee tty C PTESC-SOWN = 01 
CBSL PH : PTESC~SW = 40 
PCBSW_DIOCNT : if PTESC-UOWN = 91 
PCBSW-DIOLM - 040 plese -U0 = 30 
he yy BMS ceensese PTESN-MODIFY = 04 
PENSAB_TYPE ereree =X PTESM_PGFLVB e FPFFF 
PENSAL BAK ~ eee PTESM TYP = 004 
PENSAW_REF CNT emma . 8 PTESM TYP = 04 
PENSAX_SHRCNT seecccce OO PTESM-VALID = 8000000 
PFNSC_ACTIVE = £88088 PTESS “PFN = 0000001 
PFNSC_BADPAGLST = 44 3 PTESS PGFLVB = 00000016 
PFNSC_FREPAGLST s 8 0 BS} PTE$S “PROT = 00000004 
PFNSC_MFYPAGLST 7 0000004 PTESV~CHKPNT = 9000015 
PFNSC_PPGTBL 80500006 PTESV CRE = 00000010 
PFNSC_PROCESS nd 000004 PTESV"DZRO = 99000011 
hs BS = 9000000 PTESV-MODIFY = 00000014 
PENSCIRELPEND. = 90000008 PTESV-OWN = 00000017 
hes g MAE Hi = 00000005 PTESV_PGFLVB = 00000000 
PFNSC_WRTINPROG = 00 tit FA PTESV PROT - 90000 18 
PENSMZMODIFY = 9000008 PTESV-T¥PO = 00000016 
ore = 0000004 PTESV-TYPI = 00000014 
PENSS PAG = 0000000 PTESV WINDOW = 00000015 
PrNsy(oe = 99990000 REGLOR = Soos0008 
e = 
ah Pay 3 ta = 89000000 RENS ASTWALT = 9000001 
PENMAPDEL " Q000006F R 03 RSNS "NPD YNMEM = 00000003 
Pron Pad 3000001 SCHSGL_CURPCB arene a 
are ese AU 7 444 SCHSGQ"PFWQ eereeeee XX 0 
PHDSL—FREPOV = 90000080 SECSC_CENGTH = 90000020 
PHDSL_FREPIVA = Boopoose SECSL~PAGCN = 0000001 
PHDSL_FREPTECNT - 4 rs i SECSLTREFC = 0000001 
est pour” = 000 oocs SECSL-VPXPFC = 00000008 
PHDSL~POLRASTL = Boon htS SF CSVTRESIDENT = 000 000p 
Soet=pe te : SECSUFLAGS = 00000014 
PHDSL _PSTBASOF F sd SENSGC PILUCNT teeeeeee =X 
PHDSL_PTWSLELCK s 4 SGNS$GL”~ PHDLWCNT REReeeee x 
PHD _PSTLAST s SGNSGL~ PTPAGCNT Reeeeeee xX 
PHDSW_PTCNTLCK * § SHMPAGDEL 9000096 R 
PHOSW_PTCNTMAX 5 Hey 44 ‘ C 
i$ et dt 2 5 SS$-ACCVIO = 9000000¢ 
i$ or oH : §S$~EXQUOTA : 1¢ 
ng od He . SSS-ILLPAGCNT : FC 
HDSW_WSQUOTA . 5 SS$INSFUSL ° i; 
Sg al . SS$"NOPRIV = 99900084 
-1PL : $$$" NORMAL = 1 
PRETPILR z o8 SS$_PAGOUNVIO = TE 
PRS_TBIS s A SS$_VASFUL 


ro V04-00 Page SYS 
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Symbol table =SEP=1 


$53 _WASSET = of 
eee = 
wan bo R 02 
VASM_P1 = 
VASM_SYSTEM = 8 
$M_VPG = FFFFF 

VASS_BYTE = 
VASS_VPN = 
VASV_P1 = 1 
VASV_VPN = 9 
WSLSA_PFNLOCK = 
WSLSM_WSLOCK = 3 2 
WSLXVANOMAT FC R $3 
WSSCNWAIT OOO00AB R 

ges amecenansreons eeee+ 

H Psect synopsis ! 
PSECT name Allocation PSECT No. Attributes 
. ~ ° 00 0 ¢ -)» 00 ¢ 9.) NOPIC USR CON ABS LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE 
SABS 00 7 >) 1 ¢ -) NOPIC USR CON ABS LCL NOSHR EXE RD WRT NOVEC BYTE 
YSEXEPAGED OOO0SED ( 1517.) é ( ¢:) NOPIC USR CON REL LCL NOSHR EXE RD WRT NOVEC BYTE 

44454 , -@ Bima ( -) NOPIC USR CON REL LCL NOSHR EXE RD WRT NOVEC BYTE 
ZSINITSPFN_F IXUP_TABLE 0000018 (¢ 24.) 04 ( 4.) NOPIC USR CON REL LCL NOSHR EXE’ RD WRT NOVEC BYTE 
borer ere ene eet er eae eee moe a} 
; Performance indicators ; 

Phase Page faults CPU Time Elapsed Time 
Initialization 5 : ‘8 .07 Q: + -¢7 
Command processing 127 :00:00. ¢ 0:00:06.91 
Pass 476 00:18. 3: 1:02.77 
Symbol table sort 0 :00:02.78 :00: 33 
Pass 2 364 :00:05.74 :00:18.2 
Symbol table output “gy :00:00.22 :00:00.4 
Psect synopsis output :00:00.01 :00: . 
Cross-reference output ‘ 8 :00:00. 
Assembler run totals 103 " 0:01:37.66 


Ine ¥erk ing ses pSers was 4109 pages. 

115412 bytes (226 pages) of virtual memory were used to butter ihe intermediate a F 

There were 90 pages of symbol table space ar teeetes to hold 1669 non-local we 125 local symbols. 
126 source Lines were read in Pass 1, produc ing object records in Pass 2. 

macros. 


pages of virtual memory were used to define 


14 
SYSCREDEL = SYSTEM SERVICE CREATE & DELETE bade "gcgees 
VAX=-11 Macro Run Statistics -$ 


tern ee eee meee eter etree een en =+ 


H Macro Library statistics ! 


wer ese ee eee eee ee ee eee mew} 


Macro Library name Macros defined 
-8255$DUA SYS.OBJJLIB.MLB; 1 24 
S58eSDUASB: SYSLIBJSTARLET.MLB;2 3 
TOTACS (all Libraries) 3 


1811 GETS were required to define 33 macros. 
There were no errors, warnings or information messages. 


“1984 03:49:40 


MACRO/LIS=L1IS$:SYSCREDEL/OBJ=OBJ$:SYSCREDEL MSRC$:SYSCREDEL/UPDATE=(ENH$:SYSCREDEL) +EXECML$/LIB 


AX/VMS 
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